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Associate Editor 



On the whole, 1988 was not a kind 
year for Atari. For example, it 
bought the Federated chain of 
Western-based, consumer electron- 
ics stores, and now the deal is in 
dispute because of Federated's assets' worth. 
Atari feels that the Federated assets were 
overstated by about $43 million, not a drop 
in the bucket by any means. This situation 
appears destined for a courtroom decision. 
It has also gone through a great many em- 
ployees. One of the stranger "turnovers" was 
Chuck Babbitt, who was hired as president 
of the computer division. Within a couple of 
months' time, he was out and the position was 
again open. Atari's explanation was that Bab- 
bitt's contract was for short-term 
consulting— an explanation that very few peo- 
ple took seriously. 

Recently (October), the biggest blow to 
Atari's public image was the loss of NeO Har- 
ris. Harris was considered by most to be 
Atari's mouthpiece, not only speaking at con- 
ventions and users' group meetings, but also 
appearing on the major telecommunications 
services, answering questions and, though he 
was restrained near the end by new Atari poli- 
cies, passing along new product information. 
Harris will continue in information dissemi- 
nation: His new career will take him to GEnie 
as a product marketing specialist. 
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Perhaps the most disheartening situation 
was Atari's decision to sell overseas most of 
the STs it manufactured, where it feels its 
market is better. It says that the U.S. problem 
was due to the DRAM shortage. The lack of 
product prevented it from doing major adver- 
tising in the U.S. because the inventory 
couldn't support the demand. 

All of these problems don't help enhance 
Atari's image. Dave Small, creator of the 
Magic Sac Macintosh emulation cartridge 
(among other things), uploaded a stinging di- 
atribe (brought on by Harris' resignation) on 
CompuServe concerning what he considers 
to be Atari's impending demise. He cited a 
number of instances that pointed out Atari's 
poor managerial skills. 

Now there are those who will consider me 
wimpy, but I'm not ready to close the book 
on Atari. First, a number of sources have stat- 
ed that Atari may make a stunning showing 
at the November COMDEX. And, if this in- 
deed takes place (you'll know by the time you 
read this), it could become a phoenix of sorts, 
rising out of the flames of a crumbling image. 

Unfortunately, none of this helps the 8-bit 
line of computers. Atari is selling the XE 
Game System, but it's left to be seen whether 
buyers will use it for anything other than what 
its title implies: a game machine. Speaking 
with a Federated employee the other day, 
though, I was told that the 8-bit line is in de- 
mand, and that Federated is still going 
through XE computers at a brisk pace. 
Perhaps the death knell has sound prema- 
turely? 

If you look back through recent history, 



you'll see scores of computer companies 
peaking and valleying. Atari right up there 
among them. The main hurdle Atari has had 
to overcome has been its game-machine im- 
age. There are those, myself included, who 
feel that Atari should have taken the same 
path that Commodore did when it called its 
computer Amiga, a name that stands apart 
from the company that makes it. Serious 
computer users, unfairly, find it hard to take 
any computer Atari puts out seriously, given 
its gaming roots, no matter how powerful the 
performance statistics. 

There's no doubt that Atari has created 
powerful machines. Trouble arises, in these 
demanding times, when you don't continu- 
ally update your hardware, and Atari hasn't 
done much in that department recently. 

Even as I write this, the Summer Olym- 
pics are ending. A couple of times in the past. 
Atari has come close to winning a medal in 
their computer-industry quest. Some feel that 
the race is already over and that Atari has 
pulled up lame; others feel that the competi- 
tion is coming into the homestretch with Atari 
far behind, but still with a chance of recov- 
ery. The deciding point was COMDEX. As 
you read this, COMDEX is already in the 
past, but if Atari made an impressive show- 
ing (I've confirmed that it's working on an 
ST Laptop and a 68030 ST, but Atari hasn't 
decided whether it'll be showing these 
products), it could renew itself. We'll pass the 
information on to you as we find it out. 

In the meantime, we wish you and yours 
a Happy New Year, from all of us at 
ANALOG. 
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Merrill Ward 

vs. Total 
Control Systems 



Previously, ANALOG reported that Mer- 
rill Ward Associates (MWA) was negotiating 
with Atari Corp. to license a new 8-bit desk- 
top operating system for the XE/XL com- 
puter. The hopes were that GOE would 
become the new standard operating system 
for the XE/XL and renew interest in the 
XE/XL computer. A renaissance in the Com- 
modore 64 has been spurred by the release 
of the GEOS desktop system last year. 

GOE was written by David Sullivan of To- 
tal Control Systems (TCS). Sullivan was first 
contacted by Shelly Merrill last year. Mer- 
rill desired to obtain the marketing rights to 
GOE with the understanding that Merrill had 
the contacts needed to approach Atari Corp. 
with a licensing proposal. Sullivan gave a ver- 
bal approval to approach Atari Corp., then 
sent a demonstration version of GOE to be 
shown at the meeting with Atari Corp. 

A proposal was drafted between TCS and 
MWA, although in the end the two could not 
come to an agreement. After Atari Corp. 
declined Merrill's proposal, the situation 
turned to the worse. MWA announced the 
GOE at the Consumer Electronics Show last 
summer, and sold copies of the demonstra- 
tion version to 8-bit end users. MWA did this 
without informing Sullivan. 

TCS has since completed the GOE system 



and is now publishing and marketing the sys- 
tem to the Atari user community. Atari Corp. 
has again been approached, but no word has 
been given on acceptance. In the meantime, 
TCS is making the GOE system available as 
a 64K cartridge that includes the basic oper- 
ating environment and documentation of its 
usage. Additional cartridges can be plugged 
into the top aiid bottom of the GOE cartridge, 
making it compatible with other cartridge- 
based products. 

A painting program on the par with Neo- 
chrome for the ST and a word processor that 
supports fonts and graphics is being complet- 
ed and should soon be released. 

A developer's kit is now available. Released 
on several disks, the developer's kit includes 
a linker, resource construction set and exam- 
ple programs. TCS expects developers to use 
the MAC/65 assembler, as they do not pro- 
vide their own assembler. 

Total Control Systems 
4156 Tolowa Street 
San Diego, CA 92117 
(619) 270-0111 

Merrill Ward & Associates 
255 North El Cielo Rd., Ste. 222 
Palm Springs, CA 92262 
(619) 328-8728 
CIRCLE #151 ON READER SERVICE CARD. 
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So Long Sandy 



There is a new dance that's very popular 
in Sunnyvale, California. It's called the Atari 
Shuffle. The more successful shufflers have 
been Jerry Brown, Charles Babbitt, Tony 
Gould, Richard Frick— and most recently 
Sandy Austin. Up until June, Sandy was 
Atari's Users' Group coordinator, a role that 
put her in charge of all the Atarifests. 

Austin was hired into Atari in the summer 
of 1986 and immediately placed in charge of 
directing communications between Atari and 
the many dedicated. Atari Users' Groups. She 
was the primary force behind the Atarifest 
concept, bringing Atari promotions to in- 
dividual cities with the help of local user 



groups. The promotion was a huge success 
for Atari, with more than 14 Atarifests held 
in 1987. At a very small cost. Atari brought 
its name and advertising to home and small 
business end users on a personal and profes- 
sional level. 

Unfortunately, the rule at Atari seems to 
be "Do well and begone." So, Sandy Austin 
is no longer at Atari. Cindy Claveran has 
been promoted into Austin's old position. 
Claveran has been with Atari for the past two 
years as the developer-relations coordinator, 
a role that has made her the favorite of most 
8-bit and ST developers. 



Rumor du Jour 



ADOS is Atari's announced-but-not- 
shipped disk-operating system that allows the 
new Atari XF551 disk drive to work in 
double-density, double-side format. XF551 
users will have access to 360K of storage 
space on one 5'/4-inch floppy disk. Unfor- 
tunately, ADOS is not yet available, making 
SpartaDOS X from ICD the only choice. 
When the XF551 was ready to ship last sum- 
mer, ADOS was intended to be shipped with 
the drive as a public-domain operating sys- 
tem. Unfortunately, ADOS was not ready, so 
Atari shipped the old DOS 2.5. 

It seems that Atari is renaming ADOS to 



SpartaDOS X Ships! 



DOS XE and will be selling the new operat- 
ing system as a commercial product. 
Although no official word on DOS XE 
release date has been given. Atari XE/XL 
users should expect the new system within 
the next few months. By the way, the new 
DOS requires at least 64K of memory, mak- 
ing it incompatible with the old Atari 800 
computer series. 

Atari Corp. 
1196 Borregas Ave. 
Sunnyvale, CA 94086 
CIRCLE #154 ON READER SERVICE CARD. 
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ICD is now shipping SpartaDOS X, a new 
disk-operating system for your Atari XE/XL 
computer. SpartaDOS X is a plug-in cartridge 
with fast disk I/O routines. Loading DOS 
takes half the time it takes to load the cur- 
rent system utilities. Since SpartaDOS X is 
cartridge based, it offers the most free 
memory of any available DOS. ANALOG 
had a chance to test SpartaDOS X at the 
Glendale Atarifest, and the speed results were 
very good. 

SpartaDOS X is fully compatible with In- 
dus GT drives, Atari XF551 drives, US 
Doubler-enhanced 1050 drives and Happy 
1050 drives. All densities are supported (sin- 
gle, dual and double), so owners of the new 
Atari XF551 will finally be able to access the 
extra 180K of storage in the double-side 
double-density mode. 



SpartaDOS X adds hard-disk compatibili- 
ty using ICD's Multi I/O (MIO) board. Direc- 
tory sizes have been improved to 1423 files 
(other DOS directories are far more limited). 
You will also find Archive support built into 
SpartaDOS X. Archive— ARC for short— is 
a program that compacts programs and data 
into smaller files for transmission to bulletin- 
board systems and other online services. 

Several other new features have been in- 
cluded: supported are 16 I/O channels, nine 
drives (with D9: as a RAMdisk), up to one- 
megabyte RAMdisks and full parameter pass- 
ing for batch files. 

ICD 

1220 Rock St. 

Rockford, IL 61101-1437 

(815) 968-2228 CIRCLE #155 ON READER SERVICE CARD. 



Been Looking 
for Old Stuff? 

Many times during your XE/XL's lifetime, 
you might have a need to buy some old equip- 
ment or software. For example, do you 
remember the Adam computer? In 1984, 
Coleco was on top of the video-games trend 
with the Colecovision game machine. 
However, shortly after the 1985 release of the 
Adam, Coleco was nowhere to be seen in the 
computer market. 

M.W. Ruth Co, Inc. still has programs and 
cartridges for Colecovision and Adam. They 
also stock Atari VCS and XE/XL cartridges. 
They even have Atari 5200 game cartridges. 
Most of their catalog of products is filled with 
inexpensive consumer items: joysticks, com- 
puter covers, etc. 

M.W. Ruth Co., Inc. 
3100 W. Chapel Ave. 
Cherry Hill, NJ 08002 
CIRCLE #153 ON READER SERVICE CARD. 



Users' Group 
Highlight 

The Bakersfield Atari Computer En- 
thusiasts publishes BACE Line, a monthly 
newsletter of information and help for Atari 
8-bit and ST users and programmers. Of in- 
terest to 8-bit users, the newsletter includes 
an interesting series of tutorials for program- 
ming with Atari BASIC. Typical topics in- 
clude looping constructs, error reporting and 
other necessary functions. 

BACE Line 

228 Plymouth Ave. 

Oildale, CA 93308 

CIRCLE #156 ON READER SERVICE CARD. 
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STELLAR 



by John Ortiz 




y oi/andyoiff copilot are cruising back 
/ tc/ Star B^se Headquarters, iiaving 
f completed a rather uneventful— 
actually, boring— rpission. /\s you 
k are passihg near t|ie planet- Khiv, 
you' instruments show stro^ig electronic in- 
terference. You look at your copilot; he looks 
at you. You are both thinking the same thing! 
You have heard of the huge electronic arena 
of the planet Khiv: What better chance to try 
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it? Without speaking a word, the decision has 
been made. You begin landing preparations, 
anticipating the challenge of the famous Stel- 
lar Arena of Khiv. 

You silently recall the things you've heard 
about the arena: that it is the ultimate of 
challenges; that once inside its electrified 
walls, you will be bombarded by laser shots, 
attacking robots, pulsar beams and fast- 
moving spikes; that you are given three 
chances to rack up an enviable score and are 
awarded bonus lives if you survive long 
enough; that you can challenge the arena 
alone or with another player. 

Getting started 

Stellar Arena is a one- or two-player game 
for preteens and older. It keeps the high score 
for each session, so you can try to outscore 
even yourself. Stellar Arena requires excel- 
lent joystick agility. Its 15 levels of difficulty 
will not be mastered easily and will provide 
many hours of challenge. 

To create your copy of Stellar Arena, type 



in Listing 1 using the M/L Editor found else- 
where in this issue. 

The first display screen 

After Stellar Arena executes, you will get 
a brief look at the program title, and then the 
first display screen will appear. You will see 
an empty arena and, above it, the scoring in- 
formation including the high score; Player 1 
and Player 2's scores and lives, the level of 
difficulty, the time left on the level and the 
number of players. 

The function keys 

Selection— to choose a difficulty level. You 
may begin on any level A through I. (You may 
not begin at levels J through O). Level A is 
the easiest, O is the hardest. 

Option— to choose a one-player or two- 
player game. 

Start— lo begin the game or to start over 
with options intact. 

System Reset— to return to title page, but 
this does not erase the high score. 
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Pause — to pause any time, you press the 
space bar or any letter key. A joystick move- 
ment by either player will bring you out of 
pause. 

Using the joystick 

In Stellar Arena you will use the joystick 
for three reasons: to move your player, fire 
your weapon and determine the direction of 
the shot. To move your player, simply move 
the joystick in any of eight directions. To fire 
your weapon, press the red fire button and, 
at the same time, move the joystick in the 
direction you wish to shoot. 

You may shoot as often as you like, but 
each new shot erases the one before it; so give 
your shot time to hit its target before you 
shoot again. 

Inside the arena of Khiv 

The challenge of Stellar Arena is to score 
as many points as possible by both dodging 
and shooting the obstacles inside. You earn 
points as long as you stay alive, but to get a 
good score you must knock out as many ob- 
stacles as you can. 

The arena is divided into five different 
zones, each with its own color and three lev- 
els of difficulty. (Each level is slightly faster 
than the one before it.) 

Zone blue contains four cybernetic robots. 
The robots always appear at either the top or 
bottom wall of the arena. They move within 
the arena in one direction until they are 
deflected by a wall or another robot, when 
shot it is automatically replaced; so there are 
always four robots present. Shooting a robot 
gets you ten points times the level (Level 
A=10 pts., Level B=10 pts. x 2; through Lev- 
el 0=10 pts. X 15). Zone blue, like all other 
zones, contains a laser gun in each corner 
which moves randomly back and forth across 
the corner. The laser guns get 50 times the 
level points, but if it is shot, it is out of com- 
mission for the remainder of that level. 

Zone green contains five cybernetic robots, 
four laser guns and one pulsar. The pulsar 
moves up and down along the left side of the 



arena. Before releasing its deadly beam 
horizontally across the entire arena, it will 
hum for a second or two— your warning to 
get out of its path. The pulsar is too power- 
ful to be knocked out. 

Zone purple contains six robots, four 
lasers, two pulsars (one at each side that shoot 
at the same time, but not in the same place) 
and one spike. Spikes move around random- 
ly, can be shot for 100 times the level points 
and are out for the rest of the level once shot. 

Zone gold has seven robots, four lasers, two 
pulsars and one fast spike. You also move 
twice as fast in this zone. 

Zone red has eight robots, four lasers, two 
pulsars and two speedy spikes— goorf luck! 
This zone moves you twice as fast as the 
previous one. 

In all zones, collision with anything, in- 
cluding the electrified walls, results in im- 
mediate death. You are given three lives to 
start and earn an additional one every 10,000 
points. 

In a two-player game, the players should 
agree beforehand whether they will fight each 
other or not. Shooting another player, 
planned or accidentally, earns 250 times the 
level points. Collision with the other player 
(unless he is in suspended animation) results 
in the death of both players. 

Ready to take the challenge? 

When you are ready to enter the arena, 
press Start. You will be positioned in the left 
center of the arena (in a two-player game, the 
other player is in the right center of the are- 
na). You will see the robots and the laser 
guns. You are now in suspended animation 
and invulnerable to any attack. You will al- 
ways start this way when getting a new life, 
but, as soon as you press the fire button, 
you're under attack and should move. While 
you are invulnerable your score does not ad- 
vance, but the timer is running; so it is to your 
advantage to get in as quickly as possible. 

Ready? Press Start and the fire button, and 
good luck in the Stellar Arena of Khiv. 

continued on page 36 
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by Frank Martone 



Travel from 

floor to floor 

trying to save 

as many 

people as you 

can, but 

beware of 

flames and 

explosions. 



You are a daring firefighter racing 
against time to save the victims 
trapped in a burning building. 
In the beginning of the game, you 
will see a diagram of the building you 
are in, and a flashing arrow will show you 
what floor you are on. Each building con- 
sists of seven floors; there are five people on 
each floor. So, there are 35 people in each 
building. The goal of Inferno is to success- 
fully reach the top of the third building. 

You wDl start out with five firefighters, this 
is displayed at the upper right corner of the 
play field. Travel from floor to floor, 
trying to save as many people as you 
can. To save a person merely touch 
them. Beware of the flames and explo- 
sions; touching these is naturally fatal. 
Cheer up, your firefighter is not left 
totally defenseless. You have a power- 
ful fire extinguisher. Pressing the 
joystick button will activate it. 

It surrounds the firefighter with a 
stream of water. You can use it to clear 
away the flames or explosions. Be 
careful. If you accidentally spray a per- 
son with the extinguisher, he will die 
of suffocation. Your fire extinguisher 
will not last forever; its water supply 
must be replenished. Every time you use the 
extinguisher it will cost you ten units of water. 
To refill the extinguisher touch a nearby water 
canister. It will give you 100 units of water. 
You will start out with 300 units of water. The 
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current water supply is displayed at the top 
in the middle of the playfield. 

You don't receive points immediately when 
you save a person. Your score for a floor is 
given when you leave it. You may not exit a 
floor until either all, or some of the five peo- 
ple on that floor, are either killed or rescued. 
When you are allowed to leave the floor, your 
man and the screen walls will turn green. You 
may then exit through the top of the screen. 

After you leave a screen (floor), you will 
see the words "FLOOR SECURED" on the 
screen. You will then receive points based on 
the number of people that were saved on that 
floor times the point value of the people in 
that building. In the first building, all peo- 
ple are worth 100 points, in the second build- 
ing the people are worth 200 points, etc. 

When you reach the top of a building, you 
will receive a free firefighter, and you will 
also get points based on the number of peo- 
ple saved in the entire building. You will 
receive 1,000 points for each person saved. 
So, the perfect score would be 35,000 because 
there are 35 people in each building. If you 
save all 35 people, you will receive 50,000 
points as a bonus. 
Important variables: 

SC— Score 

PN— Number of people 

WP— Water supply 

FMEN— Number of firefighters 

DL— Difficulty level 

continued on page 29 
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Since 1981 



Lyco Computer 

Marketing & Consultants 



Air orders processed within 24 hours. 



Lyco Means Total Service. 




Mark "Mac" Bowser, Sales Manager 

I would personally like to thank all of our past customers for helping to make 
Lyco Computer one of the largest mail order companies and a leader in the 
industry. Also, I would like to extend my personal invitation to all computer en- 
thusiasts who have not experienced the services that we provide. Please call 
our trained sales staff at our toll-free number to inquire about our diverse 
product line and weekly specials. 

First and foremost our philosophy is to keep abreast of the changing market 
so that we can provide you with not only factory-fresh merchandise but also 
the newest models offered by the manufacturers at the absolute best possible 
prices. We offer the widest selection of computer hardware, software and ac- 
cessories. 

Feel free to call Lyco if you want to know more about a particular item. I can't 
stress enough that our toll-free number is not just for orders. Many companies 
have a toll-free number for ordering, but if you just want to ask a question 
about a product, you have to make a toll call. Not at Lyco. Our trained sales 
staff is knowledgable about all the products we stock and is happy to answer 
any questions you may have. We will do our best to make sure that the 
product you select will fit your application. We also have Saturday hours - one 
more reason to call us for all your computer needs. 

Once you've placed your order with Lyco, we don't forget about you. Our 
friendly, professional customer service representatives will find answers to 
your questions about the status of an order, warranties, product availability, or 
prices. 

Lyco Computer stocks a multimillion dollar inventory of factory-fresh merchan- 
dise. Chances are we have exactly what you want right in our warehouse. And 
that means you'll get it fast. In fact, orders are normally shipped within 24 
hours. Free shipping on prepaid orders over $50, and there is no deposit re- 
quired on C.O.D. orders. Air freight or UPS Blue/Red Label shipping is availa- 
ble, too. And all products carry the full manufacturer's warranties. 

I can't see why anyone would shop anywhere else. Selection from our huge 
inventory, best price, service that can't be beat — we've got it all here at Lyco 
Computer. 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental US Call: 1-717-494-1030 

Hours: 9AM to 8PM, Mon. - Thurs. 
QAM to 6PM, Friday— 10AM to 6PM, Saturday 

, For Customer Service, call 1-717-494-1670, 

9AM to 5PM, Mon. - Fri. 
Or write: Lyco Computer, Inc. 
P.O. Box 5088, Jersey Shore, PA 17740 

PLEASE NOTE: • full manufacturers' warranties • no sales tax 
outside PA • prices show 4% cash discount; add 4% for credit cards • 
APO, FPO, international; add $5 plus 3% for priority • 4-week clearance 
on non-certified checks • we check for credit card theft • sorry, com- 
patibility not guaranteed • return authorization required • due lo new 
product guarantee, return restrictions apply • price/availability subject to 
change • prepaid orders under $50 in Continental US, add $3.00. 



A ATARI System Special! 

System Includes: 



• 130 XE Computer 

• 551 Drive 

• Seikosha SP-180 Al 
Printer 




$42995 

Call For More ATARI Hardware Information. 



INDUS 



GTS-1 00 

• Atari ST 
Drive 

• 3.5" DSDD l!. 



^i^_. 



$195 



95 



SupraMoaenf 

2400 




AATARr 

Cartridge Software 
3 for $9.95 

CALL FOR 
TITLES! 

500 XJ^£3- 



• fully compatible 
with Industry- 
standard, Intelligent 
"AT" commands 

• Compact size 

• 1-year warranty 



HeadStart 



COLOR SYSTEM 

• plug in and use im- 
mediately 

• IB(vI-XT compatible 

• 2-360K Drives 

• Free 1-year limited 



$12995 




vwarranty 



$969 



95 




$1395 

MAGNAVOX 



• HI Res color monitor Included) 



CM-8502 

• Composite 
Color 

• Green Text 
Switch 

• Speaker 

• Suggested 
Use 130 XE 



$179 



95 



1-800-235-8760^ 



r 



^ 
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iicronics 



NX1000 



Panasonic. 

OHicp Aulomalion/'^~" j^^ 

1080i Model II 



SEIKOSHA 
Sp180Ai 




$169 



NX-1000 

NX-IOOOC 

NX-1000 Color ... 
NX-IOOOC Color . 
NX-15 



*w/cable purchase 

144 Cps Draft 
36 Cps NLQ 

• EZ Soft Touch Selection 
95 • Pape^ Par1<ing 

• Epson Std. & IBM Proprinler 
II Compatible 

NR-10 $319.95 

. $169.95- NR-15 $419.95 

.. $169.95 NB-15 24 Pin $669.95 

.. $225.95 NX-2400 $309.95 

.. $229.95 ND-15 $349.95 

.. $289.95 'w/cable purchase 





$149 



• 1 50 Cps Drafl 

• Friction & Tractor Feed Std. 
QC* • Bidirectional & Logic 
^*' Seeking 

• NLQ in all Pitches 
'quantities limited 



$125 



95* 



1 00 Cps Draft 

24 Cps NLQ 

Tractor & Friction Feed 

Epson FX & IBM Graphic 

Compatible 

'quantities limited 



1080i Model II $149.95- 

1091i Model II $195.95 

10921 $309.95 

1592 $375.95 

1595 $439.95 

'quantities limited 



SP 180Ai $125.95- 

SP 180VC $125.95- 

SP 1000VC $139.95 

SP 1000AP $159.95 

SP 1200VC $149.95 

SP 1200Ai $159.95 

SP 1200AS RS232 ... $179.95 



SL80Ai $329.95 

MP5420FA $999.95 

SP Series Ribbon $7.95 

SKMOO Ai $349.95 

SK3005 Ai $445.95 

SPB 10 $CALL 

SL 130Ai $599.95 

SP ISOOAi $CALL 



Citizen 

120 D $144.95 

180 D $159.95 

MSP-40 $279.95 

MSP-15E $309.95 

MSP-50 $369.95 

MSP-45 $349.95 

MSP-55 $469.95 



AATARI 



Access: 

Triple Pack $11.95 

Leader Board Double 

Pack $9.99 

Actlvlslcn: 

Music studio $19.95 

Great American Road 

Race $9.99 

Broderbund: 

Print Shop $26.95 

Graphic Lib. I, II. Ill $14.95 

Electronic Arts: 

Pinbali Con. Set $8.95 

One on One $8.95 

Lords of Conquest $8.95 

Super Bouiderdash $8.95 

Music Construction 

Set $8.95 

MIcroleague: 

Microleague Baseball .. $22.96 

GM Disk $16.95 

MIcroprose: 

F-15 Strike Eagle $19.95 

Silent Sen/ice $19.95 

Mind scape: 

Gauntlet $20.95 

DEALER 

INQUIRIES 

INVITED 



PRINTERS 



Epson 

LX800 

FX850 

FX1050 


$184.95 

$339.95 

... $499.95 






LQ500 

GO3500 

LQ850 

LO1050 


$339.95 

SLOW 

$525.95 

$749.95 




Okidata 



Brother 



Attention 
Educational 
Institutions: 

If you are not cun'entiy using 

our educational service 

program, please call our 

representatives for details. 



Okimate20 $129.95 M1109 $189.95 

Okimate 20 w/cart $169.95 M1509 $335.95 

120 $189.95 M1709 $439.95 

180 $219.95 Twinwriter 6 Dot & 

182 $209.95 Daisy $899.95 



INTERFACING AVAILABLE 



^^^^ j^^^^ 



Access: 

Leader Board $22.95 

10th Frame $22.95 

Actlvlslon: 

Music Studio $27.95 

Broderbund: 

Superbike Challenge ... $1 1 .95 

Electronic Arts: 

Alien Fires $25.95 

Hunt for Red October .. $32.95 
Epyx: 

Dive Bomber $22.95 

Impossible Mission 2 ... $22.95 

Winter Games $11.95 

Firebird: 
Universal Military 

Simulator $28.95 

Carrier Command $25.95 

MIcroleague: 

Microleague Baseball .. $33.95 

Micro. Wrestling $25.95 

MIcroprose: 

F-15 Strike Eagle $24.95 

Gunship $28.95 

Mind scape: 

Balance of Power $28.95 

Harrier Combat 

Simulator $28.95 



Origin: 

Autoduel $24.95 

Ultima IV $34.95 

Strategic Simulations: 

Questron II $32.95 

Stellar Crusade $35.95 

Sublogic: 

Flight Simulator II $30.95 

Jet $34.95 

TImsworks: 

Wordwriter ST $44.96. 

Partner ST $27.95 

Unison World: 

Art Gallery 1, 2 or 3 .... $14.95 
Prinl Master $19.95 

We Stock over 3,000 
software titles! 



Video 
Tape 



SKCT120 VHS 
Video Tape: 

each $3.99 

3 pack $10.95 

10 pack $35.96 



Monitors 



Magnavox: 

BM7652 $79.95 

BM7622 $79.95 

7BM-613 $79.95 

7BM-623 $79.95 

CM8502 $179.95 

9CM-053 $339.95 

CM8762 $239.95 

8CM-515 $CALL 

BCM-873 $CALL 

9CM-082 $439.95 

Tliomson: 

4120 CGA $199.95- 

GB 100 $119.95- 

GB 200 Super Card . $169.95- 
'auantities limited 



Joysticks 



Winner 909 $24.95 

Wico IBM/AP $29.95 

Lipstick Plus $14.95 

Kraft KC III Ap/PC $16.95 

Kraft PC Joystick 

Card $27.9.'^ 

Kraft Ivlaze Master $8.95 

I Controller $13.95 

Epyx 500 XJ $13.95 



Modems 



Avatex: 

1200e $65.95 

12001 PC Card $65.95 

1200p $89.95 

1200hc Modem $89.95 

2400 $149.95 

24001 PC Card $139.96 

Hayes: 

Smartmodem 300 $139.95 

Smartmodem 1200 .... $279.95 
Smartmodem 2400 .... $419.95 

US Robotics: 

Courier 1200 $169.95 

Courier 2400 $299.95 



Supra: 



300 $119.95' 

1200 $119.95* 

2400 $129.95 

'limited quantities 



Disc 
Storage 



QVS-10 5V4 $3.95 

QVS-75 5V4 $10.95 

QVS-40 3V! $9.95 



Join the thousands who shop Lyco and Save 
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MASTER 
MEMORY 

MAP 
PART VI 




How to read the Memory Map 

Beginning users: Read the text that is print- 
ed in bold type only. These memory locations 
will be the easiest for you to use and usually 
don't involve assembly language. 

Advanced users: Read everything! Many 
areas of memory are not of any practical use, 
but you can learn a lot about how a computer 
works by reading the boring parts. 



CSTAT 

648 0288 

CSTAT is the cassette status register. 



When the cassette handler reads in a 
record, the 132 bytes in that record are stored 
in CASBUF (1021). BLIM tells how many of 
those bytes are data that we want to give to 
the user. It is set according to one of the con- 
trol bytes in the record, and since this prob- 
ably doesn't make any sense to you, you 
should go read the description of CASBUF 
if you want more information. 



Noname 
651-655 



028B-028F 



WMODE 
649 



0289 



This location tells the cassette handler 
whether the cassette is to be read from (0) 
or written to (128). 



BLIM 
650 



028A 



1B 



More spare bytes that you shouldn't use be- 
cause fliture versions of the OS might use 
them. Locations 651 and 652 are already used 
by version "B" as part of the interrupt han- 
dler routines. 

The display handler uses the next 48 loca- 
tions. Note that not all locations are used in 
all graphics modes. 

In the case of a graphics mode with a text 
window, the display handler takes care of the 
screen, while the screen editor takes care of 
the text window. Two separate lOCBs are 
continued on page 54 
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by Craig Patchett 



Player/Missile Graphics 

So far we've seen a whole bunch of differ- 
ent ways to move things around on the screen, 
but they all had limitations that were difficult 
to deal with. What we really need is some- 
thing that will allow us to quickly and easily 
move an object around independently of 
whatever else is on the screen. Fortunately 
for us, the Atari has a special feature called 
Player/Missile Graphics (PMG) that will al- 
low us to do just that. 

Before we take a look at exactly how to use 
PMG, it may help to understand what exact- 
ly it is. To do that, we'll compare PMG to 
a cartoon animator and his work. In produc- 
ing a cartoon, the animator has the same kind 
of problem that we do. She wants to be able 
to move characters around the screen without 
having them affect the background scene. 
How does she do this? She could draw the 



character on the background, film it, then 
redraw the background, put the character in 
a different position and repeat the whole 
process over and over again. Obviously 
though, that would take a long time to do. 
Instead she draws the background once, then 
traces and paints the character onto a clear 
plastic sheet and places the sheet over the 
background painting. Then when she wants 
to change the character's position, all that 
needs to be done is to change the position on 
the acetate sheet. 

Pretty ingenious, don't you think? Well, so 
did the folks at Atari. It gave its computers 
five of these "sheets," called "players," each 
eight dots wide and as high as the screen. It 
also gave one of the players the ability to 
break up into four separate sheets, called 
"missiles," each two dots wide and also as 
high as the screen. 
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1 TD 4 PLAVERS 




nissiLE a 

niSSILE 1 
niSSILE 2 
niSSILE 3 

OR 
A 5TH PLAYER 



-a bits wide in HEM- 
APPEAR ON SCREEN AS 8.16, OR ; 



Figure 1. 

That gave Atari computers the ability to 
move objects all over the screen without af- 
fecting whatever else was on the screen, an 
ability that no other home computer had at 
the time. 

How Much Memory Do I Need? 

Now that we know what we're going to 
be doing, let's take a look at how it's done. 
It will help if you go back and review the 
section on redefining the character set, 
since PMG shares a lot of the same tech- 
niques. For example, like character sets, 
PMG needs some space in memory of its 
own. How much space? Well, that depends. 
Unfortunately, and I only use the word be- 
cause this may seem a little complicated at 
first, PMG has two modes, in the same way 
there are 12 graphics modes. In the first 
mode, called double-line resolution, each 
dot is the same height as the graphics mode 
7. In the second mode, called single-line 
resolution, the dots are half as high or as 
high as a graphics mode 8 dot. In both 
modes, the dots are as wide as a graphics 
mode 7 dot. 

How does this affect you? Single-line 
resolution mode takes up twice as much 
memory. Double-line resolution takes up 
UC of memory, and single-line resolution 
takes up 2K. Sounds backward, doesn't it? 

What mode you will use depends both 
on how much memory is available and the 
size of the pixels you want on the screen. 
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If you're short on memory, you will have 
to use double-line resolution. Both wOl be 
demonstrated very soon. 

How to Protect It 

Now that we know how much memory 
is required, where do we find it? In the 
same place we found it for character sets— 
at the end of memory. First we have to 
make that memory safe to use, however, 
and we again do this by changing the value 
in location 106. The following lines give ex- 
amples for both single- and double-line 
resolution: 



IBB PB=PEEK(74B)-4!P0KE 
1B6|PB-4!GRAPHICS B:REM 
SINGLE-LINE RESOLUTION 

IBB PB=PEEKC74e]-8!P0KE 
1B6,PB-4!GRAPHICS BiREN 
DOUBLE-LINE RESOLUTION 



Don't forget that you need some kind of 
GRAPHICS command after you change lo- 
cation 106 in order to make sure memory 
is really protected. 

You should also recall that we subtract 
an extra four from PB when we change lo- 
cation 106 to make absolutely sure our 
reserved area is safe from intrusion by the 
statement or a listing that might scroll up- 
ward into what the computer thinks is un- 
used memory. Also, if you're using one of 
graphics modes 7 through 11, you should 
change location 106 by a multiple of 16. We 
discussed the reason for this in the section 
on redefining character sets. As you will 
recall, these graphics modes need to start 
on either an even 2K or 4K boundary. 

PB, incidentally, stands for Player/mis- 
sile Base, which is just a fancy expression 
for the beginning of our PMG memory 
area. You can call it whatever you like. If 
you need a safe place for both the charac- 
ter set and PMG, first create a safe area 
for your character set, move it, then cre- 
ate another safe area for the PMG data, and 
place the data needed there. So, now that 
we have our PMG memory safely tucked 
away, let's take a look at how it's used. 

IS 



DATA AREAS FOR THE 
TWO SIZES DF PLAYERS 



FIAVES? 




PB»1024-r 

FS*c40- 
F8*5l2-i- 



! f LAYEgQ 



OR 



PC.- 



■M ,M2 Mil 



— PBH7»2 

— PB*12SU 
— p&*1024 
— FB+71;!? 




SINGLE LINE 
RESOLUTION 



DOUBLE LINE 
RESOLUTION 







Figure 2. 

As you can see, Figure 2 shows both 
single- and double-line resolution memory 
areas, each of which is divided into six sec- 
tions. The first of these sections is easy to 
explain, since it's just unused memory. 

That's right, these bytes are not used at 
all by PMG, and since they've been 
reserved, you can use them to hold 
machine-language routines (as we'll do 
later in this chapter), data or nothing at all! 
The sections of memory after the unused 
area hold the data for the players and mis- 
siles, so this is probably a good time to ex- 
plain how players and missiles are created. 

We already know that a player is the 
equivalent of a sheet or strip of plastic 
placed on top of the background. This strip 
is eight dots wide, which should ring a bell 
for you. Why? The Atari characters are also 
eight dots wide, and in fact it might be eas- 
ier for you if you think of a player as a very 
tall character. Whereas a character is eight 
bytes high, a player is 128 bytes for single- 
line resolution, 256 bytes for double-line. 
So, each dot in a player is represented by 
a bit in a byte, just like with characters (if 
you haven't done so already, go back and 
review the section on character sets). What 
about the missiles? The missiles are the 
same height as the players, but they are 
only two bits wide instead of eight. There 
are four crammed into the same set of 128 
or 256 bytes. Figure 3 gives an example. 

IN A MEMORY LOCATION 



1 1 ill o|o i|o q| 

MIJilLE 3 -=• ^ / -^MISSILE 
M|-iilLE2-- /—MISSILE 1 




Now we have all the basics out of the way 
and are ready to get into the mechanics. Be- 
fore we do, however, let's take time out for 
a quick review. 

1. Players and missiles move indepen- 
dently of the background. 

2. There are four players and four mis- 
siles, or you can group all the missiles 
together for a fifth player. 

3. Single-line resolution gives you dots 
that are half as tall as double-line reso- 
lution. 

4. You must reserve 2K of memory for 
single-line resolution, IK for double-line. 

5. In single-line resolution, players and 
missiles are 256 bytes high. In double-line 
they are 128 bytes high. 

6. Players are eight dots or one byte wide. 
Missiles are two dots or a quarter of a byte 
wide. 

7. Players are stored in memory in the 
same way as characters; so are missUes, ex- 
cept that four of them are crammed into the 
same byte. 

With all this in mind, we're now ready 
to get some real live players up on the 
screen. 

For our first example we'll do something 
sunple— a spaceship. Anyone can build one 
of these. (Want to go for a ride?) We'll use 
player and single-line resolution. After- 
wards we'll see how it would be done in 
double-line resolution. Let's get started by 
drawing our spaceship as shown in Figures 
4, 5 and 6. 



SCREEN LOOKS LIKE THIS 




so 



Figure 3. 



Figure 4. 
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YOU ARE REALLY 
SEEING THIS: 



1 1 1 I 



ffWH 



Figure 5. 



IN MEMORY 


YOU HAVE 


THESE NUMBERS : 


11J011U01 


= 153 


10111101 


= 139 


11111111 


= 255 


10111101 


= 1S9 


10011001 


= 1 53 



DO YOU SEE THE SHAPE 
THE rS IN MEMORY MAKE? 

Figure 6. 

In order to show this (Fig. 4) on the 
screen, we have to convert it to dots (Fig. 
5), and then into the correct number to 
place in memory to represent those dots 
(Fig. 6). 

Now we're ready to put these values into 
memory. The best way is to use a charac- 
ter set editor. 

Notice that so far we have only used eight 
of the 256 bytes avaOable to us up and down 
the screen. You don't have to use all of 
those 256. Any bytes, or any dots for that 
matter, that aren't used will be invisible on 
the screen, just like the portions of the car- 
toonist's plastic that aren't drawn on. And 
as you'll discover soon, you want to leave 
a lot of empty bytes right in the middle of 
the player, leaving the first and last 124 
bytes empty (124=(256-8)/2). Before we 
do that, however, we have to make sure that 
our PMG memory area is empty. 
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When we reserved this memory, there 
probably was already information stored in 
it, and we have to get rid of that information 
before we start putting our own data in there. 
We could do this with a simple FOR/NEXT 
loop like this: 

lie FOR K=B TO 2e47!P0KE 
PB*255+X,BlNEKT K 

But as you can see by running this loop, 
it is very slow. Better to use machine lan- 
guage. Oh no, you think, / didn 't realize I 
was going to have to use machine language! 
Relax, all you have to do is use it; we'll do 
the programming for you. As a matter of fact, 
all you have to do to make our machine- 
language routine work is use the following 
command: 

X=USR (ADR CMENCLR$) , START 
.LENGTH) 

In this command, MEMCLR$ is the string, 
which you'll get to in a minute, that holds the 
machine-language routine. START is the 
starting address of the memory you want to 
clear, and LENGTH is the number of bytes 
you want to clear. So for our PMG example, 
you'll use: 

X=USR (ADR CNEMCLR$] , PBW25 
6.2048) 

Now that isn't too painful, is it? And you 
can even use the routine for stuff other than 
PMG, whenever you have to clear some 
memory. 

Incidentally, we have to multiply PB by 256 
because PB is the number of pages, not the 
actual address. 

Let's put together the beginning of our pro- 
gram (finally). We'll reserve some memory, 
clear it, and then put our spaceship data into 
the middle of player 0: 

lee DIH MEMCLR$(36):MENC 

^^'^^^'^''^ 

lie PB:PEEKC740)-8 

12B POKE ie6,PB-4 

130 GRAPHICS B 

148 PMBA5E:PB*256 

ISe X=USR(ADR(NENCLR$)|P 

MBASE,2848) 

160 FOR BYTE=126 TO 130 

170 READ DAT 

180 POKE PMBA5E+1024+BVT 

S1 







E,DOT 

198 NEXT BYTE 

leee data 153|189,255,18 

9,153 

Uh, oh, what are all those funny-looking 
characters in MEMCLR$? That's just the 
machine-language routine. Unfortunately, it's 
difficult to type in, so here's a little program 
that will type the characters for you: 



lee GRAPHICS e 

110 PRINT "IBB DIM MEMCL 
R$ (36) : MEI1CLR$="; CHR$ (34 

3J 

12B FOR L00P=1 TO 36 

13B READ DAT 

14B PRINT CHR$(27];CHR$( 

DATlJ 

15B NEXT LOOP 

17B PRINT CHR$(34] 

1B60 DATA 1B4,1B4,133|2B 

4|1B4,133,2B3,1B4,17B,16 

9,B,16B,255,224,B,2B8,4, 

lB4,168jl69,B,145,2B3,13 

6,192,255|268 

1610 DATA 249,230|204,20 

2j224j255,268,234,96 



Run this, and then move the cursor up to 
the line that it prints out and press Return. 
Nifty, eh? "ibu can now type in the other lines. 

Now that you have the beginning of our 
program typed in, run it and see what hap- 
pens. Nothing, right? That's because the Atari 
doesn't know that you want to use PMG yet. 
■fcu have to tell it first, and to do that you 
use locations 559, 53277 and 54279. Wow, 
how come so many? 

53277: Tells the Atari that we want to use 
PMG. 

559: Tells it that we want to store the play- 
er/missile data in memory. This location also 
tells the Atari whether we are using single- 
or double-line resolution. 

54279: Tells it where in memory to look 
for the player data. 

Here are the values we need to POKE into 
each location: 



There are several possible numbers that can 
go into these memory locations. Here are two 
charts showing the values you can POKE into 
locations 54272 and 53277 and their effects: 

DMACTL = 54272 (559): Choose from 
the following options and add the total to get 
the value to POKE into 559. 



For 



Add 



Wide playfield 3- 

Standard playfield 2 

Narrow playfield 1 

No playfield 0- 

Enable missile DMA 4 

Enable player DMA 8 

2-Line "thick" players, or 

1-Line "thick" players 16 

Enable instruction fetch DMA . . 32 



GRACTL = 53277: POKE 53277,n. 
Choose from the following and add the to- 
tal to get the values to POKE into 53277. 

To turn on missile 1 

To turn on players 2 

To remember joystick values 4 

Now let's add the following line to our 
program: 

20B POKE 54279, PBiPOKE 5 
59,62:P0KE 53277,3 

Now run the whole thing and see if we 
get our spaceship. No? What's wrong now? 
We still have to tell the Atari how far across 
the screen we want the spaceship to appear. 
In other words, the Atari needs to know it's 
horizontal position. Right now it thinks that 
position is zero, which is off the screen on 
the left-hand side. A player can have a 
horizontal position between zero and 255, 
with 255 being off the right-hand side of 
the screen. Each player has a location that 
holds its current horizontal position. These 
locations are: 



POKE 54279, PBiPOKE 559,6 
2!P0KE 53277, 3!REM SINGL 
E-LINE RESOLUTION 

POKE 54279, PBlPOKE 559,4 
6!P0KE 53277, 3:REM DOUBL 
E-LINE RESOLUTION 



Player Location 



53248 (Player 0) 

53249 (Player 1) 

53250 (Player 2) 

53251 (Player 3) 



Missile Locations 



53252 (Missile 0) 

53253 (Missile 1) 

53254 (Missile 2) 

53255 (Missile 3) 
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Location 53248 holds the position of 
player 0, so let's set it to 128 and put our 
spaceship in the middle of the screen: 

218 POKE 53248|128 



Now run everything together and, voi- 
la, it works! There is our spaceship in the 
middle of the screen. Aren't computers 
wonderful? Notice how the spaceship is 
black. If black is not your favorite color, 
you can easily change it. 

What if we want the spaceship color to 
be, say, red? Each of the players has its own 
color register, which means that each play- 
er can be a different color. It also means 
that the players have different colors than 
the play field (the background), which in 
turn means that we can have up to nine 
colors on the screen at the same time (more 
if you use the GTIA modes). For now 
though, let's just worry about changing the 
color of our spaceship. 

The four player colors are stored in lo- 
cations 704, 705, 706 and 707 (the missiles 
have the same colors as the players). Let's 
suppose that we want our spaceship to be 
a dark red. 

Red has a color value of four. We also 
need a brightness value, so let's pick two. 
That will give us a dark red. Unfortunate- 
ly, now we are faced with a problem. We 
have two values specifying the color and 
only one location to put them in. How do 
we get around this? As you may remem- 
ber from our first discussion on color 
registers way back, to store a color and 
brightness value in one memory location 
we use the formula: 

COLOR* I6-I-BRIGHTNESS 

So we multiply 4 by 16 and add 2 to get 
66 (4*16+2=64-^2=66), which we then 
POKE into location 704: 

220 POKE 784,66 

Now our spaceship is red. By the way, 
you can play around with the spaceship po- 
sition and color from the immediate mode. 
Just type in POKE 53248,n or POKE 704,n 
(where n is a value between and 255) 
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without a line number, and press Return. 
Notice how the spaceship isn't affected on 
your screen when you do this, and the text 
on the screen scrolls up. As I mentioned 
earlier, players and missiles are complete- 
ly independent of the rest of the screen. 'Vbu 
have complete control of this independence 
using something called Priorities which we 
will get to in a moment. 

Before we go on, I should point out one 
more thing. You've probably noticed by 
now that when you Break the PMG pro- 
gram, the player remains on the screen. 
What if we want to get rid of it? Can we 
just simply turn it off? No. Prove this to 
yourself by typing in the following with the 
spaceship on the screen: 

POKE 53277, 8:P0KE 559,34 

Kind of messy, right? I won't get into the 
reason for this, since it isn't really impor- 
tant. I will, however, give you the solution. 
Ready? Simply set all the player and mis- 
sile horizontal positions to 0. This moves 
everything off the screen. For our space- 
ship, we would use the following: 

POKE 53248,8 

You can put this statement into the pro- 
gram if you want, but I'm not going to. For 
the sake of these simple demonstrations, it's 
just as easy to press System Reset. 

So far everything we've talked about is all 
very nice, but let's face it, players and mis- 
siles should do more than just sit on the 
screen and look pretty. How do we go about 
moving them? We've already seen how to 
change their horizontal position and can ac- 
tually make a very quick change to our pro- 
gram to get some horizontal movement: 

238 FOR P0SITI0N=3e TO 2 

28 

248 POKE 53248, POSITION 

258 NEXT POSITION 

268 GOTO 238 

By the way, you can't see what the current 
horizontal position of a player is by using 
PEEK. This is because the horizontal posi- 
tion locations (53248 through 53255) are in 
a special part of the computer that you can 
only POKE into. If you want to be able to 
tell what the current position is, you have to 

S3 



^, 



n 



■"n"^ 






keep track of it in a variable. 

For example, whenever you change the 
horizontal position of player 0, you might do 
something like this; 

HORZPe=K;POKE 53248, K 

Then the variable HORZPO will always 
have the current horizontal position of play- 
er as its value. 

So much for horizontal movement, now 
what about vertical? Where are the memory 
locations for the vertical positions? Unfor- 
tunately, there aren't any. Why not? Let's go 
back a little bit. Do you remember that a 
single-line resolution player is 256 bytes high, 
with each of those bytes representing a bunch 
of dots that are as high as a graphics mode 
8 dot? Well, you probably also know by now 
that in graphics mode 8, the screen is only 
192 dots high. That means that 64 (256-192) 
of the bytes in a player are off the screen. So 
what? When Atari designed its computers, it 
figured out since a player was already higher 
than the screen, there was no point in put- 
ting in vertical position registers. After all, 
whoever was programming could just move 
the data for the spaceship (or whatever else 
was to be moved) up and down inside the 
player. It was as simple as that. 

Well, this is great for all of those Atari 
programmers who use machine language, but 
for the rest of us using slower languages like 
BASIC, it doesn't work as fast as we need. 
Let's take a look at what I mean. 

Put the following lines into our program 
and run it again: 

238 FOR UP05=125 TO 14 5 

TEP -1 

240 FOR BYTE=8 TO 4 

25B POKE PMBflSE+lB24+UP0 

5+BYTE,PEEKtPMBfl5E+lB25+ 

UPOS+BVTE) 

26B NEXT BYTE 

27B POKE PI1Bf)SE'>'lB3B'i'UP0 

5,B 

28B NEXT UPOS 

By now, with all this information spinning 
around in your head, especially all the differ- 
ent locations that have to be remembered, you 
may be getting a little confused. Let's take 
a break and summarize all the different lo- 
cations that are used in PMG: 



53277 (GRACTL): To tell the Atari that 
we want to use PMG. 

559 (SDMCTL): To tell the Atari that we 
want to store PMG data in memory. 

54279 (PMBASE): To tell the Atari 
where we're going to store the PMG data 
in memory. 

53248 (HPOSPO): To move player 
horizontally (specify the horizontal pwsition). 

53249 (HPOSPl): To move player 1 
horizontally. 

53250 (HP0SP2): To move player 2 
horizontally. 

53251 (HP0SP3): To move player 3 
horizontally. 

53252 (HPOSMO): To move missile 
horizontally. 

53253 (HPOSMl): To move missile 1 
horizontally. 

53254 (HP0SM2): To move missile 2 
horizontally. 

53255 (HP0SM3): To move missile 3 
horizontally. 

704 (PCOLRO): To specify the color of 
player/missile 0. 

705 (PCOLRl): To specify the color of 
player/missile 1. 

706 (PC0LR2): To specify the color of 
player/missile 2. 

707 (PC0LR3): To specify the color of 
player/missile 3. 

That's everything we've covered so far, but 
there's lots more still to go, so be sure you're 
familiar with this before you continue. This 
is probably a good time for you to sit down 
and try programming your own player and/or 
missile. When you've got everything under 
control, read on, because the best is yet to 
come! 

Before we go on to look at all the special 
tricks that are available to you with PMG, 
let's take a closer look at movement. We've 
already seen how to move a player or mis- 
sile both horizontally and vertically. 

How about moving it with a joystick 
though? That shouldn't be too difficult; all 
we have to do is check to see which direc- 
tion the joystick is moved in and then move 
the player or missile in the same direction. 

Well, it takes a lot of time to check a 
joystick and figure out direction, especially 
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if the program has other things to worry about 
as well. 

You end up with a player that moves slow- 
ly and jerkily, and that's obviously not some- 
thing you want. So, once again, it's machine 
language to the rescue. The next section, 
PMOVE, will provide us with an excellent 
one-routine-fits-all tool. 

PMOVE 

PMOVE is a machine-language routine 
that will automatically take care of play- 
er/missile movement for you. Let's look at 
exactly what makes it so wonderful. 
PMOVE looks at the joysticks during 
VBLANK and then moves the players ac- 
cordingly. What this means to you is that 
you never have to worry about moving the 
players from within your program. 

So, for example, if you were using 
PMOVE in a program and pressed the 
break key, the program would stop, of 
course, but you could still move the play- 
ers around! This ability greatly increases 
the usefulness of PMG in your BASIC pro- 
grams, as you can probably imagine. 
Without any further ado, then, let's see how 
to use PMOVE. 

Basically, there are two steps to getting 
PMOVE to do what you want. The first one 
is putting it into memory and getting it 
ready to go. The second is telling it exact- 
ly what you want to do. We may as well 
do this in order, so let's present the pro- 
gram necessary to get PMOVE in memory. 



lee GRAPHICS 8:? "Hake s 
ure you have saved a cop 
y of"!? "this prograM be 
fore RUMning it"!FOR H=l 
TO leSBiNEKT H 

lie ? !? 

129 DIM LM(2)!F0R X:l TO 
2!READ DaT:LNCK]=DAT:NE 

XT X 

130 DOTa 41,657 

149 FOR H:l TO 2!T0T=8!M 
=B:G0SUB 1900 

150 FOR N=l TO LNCX]:REa 
D DflT!TOT=TOT+DflT 

160 IF N/25<>INT(N/25) T 
HEN 190 

179 T:TOT!TOT=0:REfiD DAT 
!IF DftTOT THEN ? "...ER 
R0R"!5T0P 

180 GOSUB 1000 

190 NEXT N;REOD DATlIF D 
ATOTOT THEN ? ". . .ERROR 



"!5T0P 

200 NEKT K 

210 RESTORE 20090 

229 FOR K:l TO 2:1=29590 

+5e9«K:G05UB 1010 

239 FOR N=l TO LNCX} :REA 

D DAT!? CHR$C27);CHR$CDA 

T); 

249 IF N/25:INT(N/25) TH 
EN READ DAT 

250 IF N/99=INT(N/90) TH 
EN GOSUB 1920!L=L+10:GOS 
UB 1010 

260 NEXT NlREAD DATiGOSU 

B 1020 

270 NEXT X 

280 END 

1000 ? !? "CHECKING LINE 

"5 19999+10O0»X+10»INT (N 
/25];! RETURN 
1010 GRAPHICS OiPOSITION 

2,4!? L;" MLANG$:";CHR$ 
(34];!RETURN 

1020 ? CHR$(34];"!RETURN 
"!? "C0NT"!P0SITI0N 0,0! 
POKE 842,13!ST0P 
1838 POKE 842,12!RETURN 
20000 DATA 104,104,133,2 
07,104,133,206,104,133,2 
89,184,133,208,104,170,1 
60,255,138,208,2,104,168 
,177,206,145,3719 
20010 DATA 208,136,192,2 
55,208,247,230,207,230,2 
09,202,224,255,208,233,9 
6,3340 

21000 DATA 104,104,104,1 
41,188,6,114,104,141,228 
,6,141,231,8,141,234,6,1 
41,237,6,238,237,6,141,2 
40,3235 

21018 DATA 6,238,240,6,1 
69,127,141,199,6,162,9,1 
60,4,173,47,2,41,16,240, 
9,169,255,141,199,6,2765 
21020 DATA 162,19,160,8, 
140,200,6,160,9,189,206, 
6,153,189,6,282,136,16,2 
46,169,7,174,240,6,160,2 
969 

21030 DATA 108,32,92,228 
,96,32,238,6,189,152,6,2 
4,109,200,6,168,285,199, 
6,144,3,172,199,6,189,28 
89 

21040 DATA 152,6,56,237, 
200,6,141,201,6,136,177, 
204,200,145,204,136,240, 
5,204,201,6,176,242,169, 
0,3450 

21050 DATA 145,204,96,32 
,238,6,189,152,6,56,237, 
200,6,168,176,2,168,0,18 
9,152,6,24,189,200,6,275 
9 

21060 DATA 141,201,6,200 
,177,294,136,145,294,299 
,294,199,6,249,7,294,201 
,6,144,239,249,237,169,9 
,145,3855 

21979 DATA 294,96,138,72 
,162,4,32,238,6,104,170, 
189,160,6,56,237,200,6,1 
68,176,2,160,0,189,160,2 



JANUARY A.N.A.L.O.Q. Computing 



SS 








935 

21088 DATA e,24|ie9,2e8, 

6,141,281,6,136,177,284, 

61,282,6,145,284,288,288 

,189,282,6,73,255,49,284 

,3286 

21898 DATA 136,136,17,28 

4,145,284,288,288,284,19 

9,6,176,7,204,281,6,144, 

221,248,219,189,282,6,49 

,284,3719 

21188 DATA 145,284,136,1 

89,282,6,49,284,145,284, 

96,138,72,162,4,32,238,6 

,184,178,189,168,6,24,18 

9,2994 

21118 DATA 288,6,168,285 

,199,6,144,3,172,199,6,1 

89,168,6,56,237,288,6,14 

1,281,6,208,177,284,61,3 

152 

21128 DATA 282,6,145,284 

,136,136,189,282,6,73,25 

5,49,204,200,208,17,284, 

145,284,136,136,248,5,28 

4,281,3699 

21138 DATA 6,176,224,189 

,282,6,49,204,145,204,20 

0,189,202,6,49,204,145,2 

04,96,189,189,6,133,204, 

24,3445 

21148 DATA 216,173,188,6 

,125,194,6,133,285,169,0 

,133,77,96,162,8,188,128 

,6,48,186,185,128,2,41,2 

787 

21158 DATA 8,288,23,189, 

148,6,221,136,6,248,43,1 

69,8,133,77,254,148,6,18 

9,148,6,157,0,208,288,29 

31 

21160 DATA 28,185,120,2, 

41,4,288,21,169,8,133,77 

,189,148,6,221,132,6,248 

,9,222,148,6,189,148,265 

2 

21178 DATA 6,157,8,208,1 

88,128,6,185,120,2,41,2, 

208,17,189,152,6,221,144 

,6,248,30,254,152,6,2668 

21188 DATA 32,229,6,138, 

16,21,185,128,2,41,1,288 

,14,189,152,6,221,140,6, 

240,6,222,152,6,32,2385 

21198 DATA 226,6,232,224 

,4,208,148,162,0,189,164 

,6,248,83,189,168,6,240, 

50,16,23,222,156,6,222,3 

182 

21288 DATA 156,6,189,156 

,6,157,4,288,281,47,176, 

32,169,8,157,164,6,240,5 

3,254,156,6,254,156,6,29 

59 

21210 DATA 189,156,6,157 

,4,208,281,288,144,9,169 

,0,157,164,6,240,106,208 

,196,189,172,6,248,57,16 

,3208 

21228 DATA 23,222,168,6, 

222,168,6,32,232,6,189,1 

68,6,281,16,176,39,169,8 

,157,164,6,248,74,254,29 

20 

21238 DATA 168,6,254,160 



se 



,6,32,235,6,189,168,5,24 

,216,185,16,285,199,6,17 

6,4,41,248,288,7,169,283 

8 

21248 DATA 0,157,164,6,2 

48,42,189,176,6,61,8,288 

,248,13,159,255,157,176, 

6,157,184,6,169,0,157,29 

38 

21258 DATA 164,6,189,180 

,6,61,8,288,248,13,169,2 

55,157,188,6,157,184,6,1 

69,8,157,154,6,232,224,3 

141 

21268 DATA 4,288,145,76, 

98,228,0,759 

This may look a little funny, so let me 
explain exactly what's going on. PMOVE 
is, obviously, a machine-language routine, 
which means that it is made up of a whole 
bunch of numbers. You can see those num- 
bers in the above DATA statements. Unfor- 
tunately, numbers take up a lot of memory. 
There's a way to store machine language 
that doesn't take up nearly as much 
memory, and that's to use ATASCn charac- 
ters (letters, digits, graphics characters, 
etc.). Unfortunately (again), it's very 
difficult for you to type in such characters. 
What we've done, therefore, is to present 
a combination of the two. When you run 
the above program, it will read all the 
DATA statements, checking to make sure 
you typed in the numbers correctly, and 
then it will change the numbers to graph- 
ics characters, right before your very eyes! 
Once it's done, you should LIST the new 
lines to disk with the following command. 

LIST"D:PMOVE",30000,30570 

Still with me? Now type in the follow- 
ing, NEW, RETURN, then: 

10 F8R BYTE=1 TO 40 

28 READ DAT 

38 POKE 1737+BVTE,DAT 

48 NEXT BVTE 

50 DATA 252,243,207,63,0 

,128,8,128,128,2,2,3,3,1 

128,64,76,88,54,76,177,6 

4,76,5,65,76 

68 DATA 88,65,0 

180 DIM MEMCLR$(36]:HEMC 

LR$="hhJI1h3K31?BI]»ffl hD 

118 PB=PEEKC740)-8 
120 POKE 106,P8-4 
138 GRAPHICS 
140 PN8A5E=PB«256 

JANUARY A.N.A.L.O.Q. Computing 



150 K=USRCaDR{MENCLR$}|P 
HBA5E,2e48) 

151 DIN HLANG$C9a}|N0UNE 
N$(41] 

152 GOSUB 3e0eB!MOUMEN$= 
HLANGS 

153 MEM:PMBft5E 

154 FOR 5EC:B TO 7 

155 GOSUB 3B500+1B»5EC 

156 X:U5RCflDRCM0UMEM$J;fi 
DR CML0NG$1 , HEMj LEN (MLANG 
H-13 

157 MEM=MEM+LEH(l1LfiNGS) 

158 NEXT SEC 

200 POKE 54279, PBiPOKE 5 
59,52!P0KE 53277,3 
205 X=U5R(PMBaSE,PB,PB] 
999 END 

Remember that Line 100 was created 
previously. And ENTER PMOVE back 
into the computer with the following: 

ENTER: "D:MOVE" 

Well, so much for the hard part. What 
you now have in your computer is a pro- 
gram that will set up the computer for 
PMG and also get PMOVE ready to go as 
well. Here's a breakdown of exactly what 
it does: 

10-60: These lines set up some data for 
PMOVE in page 6. This is actually the 
equivalent of initializing some variables. 

100-150: We've seen these lines already 
in our previous programs. 

151: MLANG$ is used for temporary 
storage as you'll soon see. MOVMEM$ 
will hold a routine to move memory. 

152: The GOSUB 30000 puts the move- 
memory routine into MLANG$ where we 
transfer it into MOVMEM$. 

153: We initialize MEM to point to 
PMBASE. This is where we will put 
PMOVE. If you're using double-line reso- 
lution, then you'll have to change this line 
to MEM=PMBASE-512. 



154: PMOVE 
segments. 



is in a total of eight 



155: We GOSUB to transfer each segment 
into MLANG$. 

156: This is the USR instruction that makes 



MOVMEM$ work. The MOVMEM format 
is: X=USR(ADR(MOVMEM$), FROM, 
TO, LENGTH-1) where FROM is the begin- 
ning of the memory segment to be moved, 
TO is the beginning of the memory area to 
move to, LENGTH is the length of the seg- 
ment to be moved. 

157: Now we update MEM to point to the end 
of the segment we just moved. 

158: That's the end of our loop. 

200: You've seen this before, but note that 
it must come before the following statement 
(205). 

205: This is the statement that gets PMOVE 
going. Its format is: X=USR(START,PB,ST) 
where START is the starting address of the 
PMOVE routine, PB is the high byte of the 
P/M address, ST is the high byte of START 
Note that PMOVE must being on a page 
boundary (START must be an even multiple 
of 256). 

By the way, after you run any program with 
PMOVE in it, you must press System Reset 
before running it again. 

Now (finally) we're ready to actually do 
something with PMOVE. But first (is there 
no end?), we have to tell PMOVE what we 
expect it to do. We do this by POKEing vari- 
ous values into memory. Let's look at these 
locations and values: 



1664-1667: PMOVE lets you decide 
which players to control with which 
joysticks. You can control one player with 
one joystick, four players with four 
joysticks, four players with one joystick, 
and so forth. If you want to attach player 
n (n is 0, 1, 2 or 3) to joystick x (x is 0, 
1, 2 or 3), then: 

POKE 1664-l-n,x 

So if we wanted joystick to control 
players 1 and 2, we would: 



POKE 1665,0:POKE 1666,0 
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If you don't want player n to be attached 
to any joystick: 

POKE 1664+n,255 

Finally, there is also a way to make a 
player move without having it connected to 
a joystick. I suggest, however, that you skip 
over this until you understand everything 
else. What you do: 

POKE 1664+n where n is a joystick 
number between 43 and 46. Then: 

POKE 675+[the joystick value] with the 
direction you want the player to move. Pos- 
sible directions are illustrated below: 




13 
Joystick values 

As you may have noticed, these are the 
same as the joystick directions. All you are 
doing with all of this is tricking PMOVE 
into looking at a joystick that doesn't ex- 
ist. As we said before, however, for the 
benefit of those of you who read this despite 
previous warnings, don't worry too much 
about it until you've played around with 
PMOVE a bit. 



1668-1671: These locations let you specify 
a left-hand limit for each player. For ex- 
ample, if you don't want player 3 to be able 
to go left of horizontal position 48 (the left- 
hand edge of the screen), you would: 

POKE 16684-3,48 

1672-1675: These locations let you specify 
a right-hand limit for each player, and work 
in the same way as 1668-1671 above. 

1676-1679: These locations let you specify 
a top limit for each player. 

1680-1683 : These locations let you speci- 
fy a bottom limit for each player. 



1684-1687: These locations specify the 
horizontal position of each player. Unlike 
the previous locations, however, PMOVE 
will update these locations as things move 
around on the screen. You must set the in- 
itial positions. So, if you were starting play- 
er 1 at horizontal position 128, you would 
POKE 1684 -f-1, 128. Then, after you had 
gotten going, PEEKing location 1685 
would tell you the current position of 
player 1. 

1688-1687: These locations specify the cur- 
rent vertical position of each player. They 
work in the same way as locations 
1684-1687 above. 

1692-1695: Now we move on to the mis- 
siles. These are the locations for the cur- 
rent horizontal position of each missile. 

1696-1699: These locations specify the cur- 
rent vertical positions of each missile. 

1700-1703: These locations allow you to 
start and stop each missile. POKE 
1700-l-n, 1 will start missile n moving. 
POKE 1700-t-n,0 will stop it. 

1704-1707: These locations allow you to 
specify the horizontal direction for each 
missile: 128 = left, 1 = right, = no 
horizontal movement. I'll explain this a lit- 
tle more with the next set of locations. 

1708-1711: These locations allow you to 
specify the vertical direction for each mis- 
sile: 128 = up, 1 = down, = no vertical 
movement. 

Let's take a look at how locations 
1704-1711 work. Suppose you wanted mis- 
sile to move diagonally up and to the 
right: 



POKE 1704,1 



the horizontal direction 

(right) 



POKE 1708,128 = the vertical direction 
(up) 

You would also have to POKE 1700,1 
when you were ready to start the missile 
moving. If you wanted to move missile 3 
straight up, it would be: 

POKE 1707,0 and POKE 1711,128. 

continued on page 50 
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MG 19 HEM H:iJJ!i:[il BY FRANK MORTOME 1/87 
IX Ze REH COPyRIGHT 1988 BV ANALOG COHPUT 

INC 
GZ 38 GRAPHICS 17!P0SITI0M 1,18!? «B;"5Y5 

TEH INITIALIZING "IPOKE 7e8,14!P0KE 71 

2,135 
RC 48 G05UB 1658 

TO 58 5CR:PEEK(881+25B»PEEKt89) !GOTO 2828 
YX 68 GRAPHICS 17:P0KE 756, CH/256 ISETCOLO 

R e,8,18!P0KE 77,8 
CO 78 SC=8:PN=5:S0UND 8, 8,8, 8:UP=38e:FHEN 

=5 : DL=28 : AP;21 : FNzl ; BU=1 ! 5A=B : LF:B ! 5P= 

e:PU=188;G0T0 1138 
KV 88 POKE 559,B:Pl=INT(RNDC6]«14]t4:P2=I 

NTtRNDCB)»17)+3:P3:IMTCRNDt8)»14J+4!P4 

:INT{RNDt8J«17U3lP5=INTCRNDtB5«145+4 
¥L ?8 P6:INTCRKDCBHH7)+3:P7 = IHT(HNDCB)»1 

4)^4:P8=INT(RND(e)«17]i3:P9=INT(RNDCe] 

*14)+4 
IL IBB Pl flzINT (R ND CB)»1 7) t3 ! P OSITION 8,1! 

IE iiB PO SITION 8,22!? 06 ; "DuiUUMUUUUUU 

lUiWUI"! POSITION RND(B]«16i4,RNDCB]*17 

+3 
IX 128 POSITION P1,P2!G0SUB 7B8:P0SITI0N 

P3,P4!G0SUB 718:P0SITI0N PS,P6:G0SUB 7 

2B:P0SITI0N P7,P8:G0SUB 738 
EL 136 POSITION P9,P18:G0SUB 74B 
KB 148 X=?!Y=18!SETC0LOR B,8,1B: Ll:l!L2=l 

!L3=l!L4=l!L5:l!P05ITI0N X,Y!? BBJ" " 
CO 15B POKE SCR>Xi2B»Y,lBlS0UND B,B,8,e:P 

OSITION 16, Bi? «6j"|3" 
GI 168 POKE 559,34;P0SITI0N RNDC8]»15+2,R 

ND(81»17 t3!? t>6i" J"!P0KE 718,117 
WI 17B REM WIM'.Utm 
ZK 186 5CR=PEEK(88)i256»PEEXC89] 
DJ 196 TP=SCR4X+2B«YiS0UND l,B,e,B:P0KE 7 

7,8 
OR 288 ST=STICK(B)!TR=STRIG(B] IPOKE 769,5 

eiSETCOLOR 6,8,18!P0KE 711,14 
OH 216 IF LF:5 THEN POKE 716,212 
RH 226 POSITION 1,8!? «6; 5C iPOSITION 17,6 

!? «BiFM£Ni POSITION 18,81? a6;HP;" "; 
JN 238 IF Ll=l THEN LOCATE Pl,P2,Hl!lF HI 

<>59 THEN GOSUB 758 
V5 248 IF L2=l THEN LOCATE P3,P4,H2!lF H2 

<>58 THEN GOSUB 788 
EF 258 IF L3=l THEN LOCATE P5,PB,Hl!lF HI 

063 THEN GOSUB BIB 
SO 268 IF L4=l THEN LOCATE P7,P8,Hl!lF HI 

<>47 THEN GOSUB B46 
EQ 278 IF L5:l THEN LOCATE P9,P16,Hl!lF H 

1<>43 THEN GOSUB 878 
KV 288 SOUND l,e,B,8!lF TR=6 THEN GOSUB 2 

738 



PK 298 IF ST:14 THEN POKE TP,B:Y:Y-1 

LM 3BB IF 51=13 THEN POKE TP,8!Y:Y+1 

OH 316 IF ST=7 THEN POKE TP,B!K=H+1 

LF 326 IF ST=11 THEN POKE TP,8:K=X-1 

HW 336 IF TR=6 THEN GOSUB 2738 

01 348 LOCATE X,Y,BC:GOSUB 588 

JZ 358 IF BC=25B THEN GOTO 926 

YM 366 IF BC=1 THEN GOTO 928 

KB 376 IF BC=74 THEN FOR H:55 TO 46 STEP 

-3!S0UND 6, H»8, 16,8! NEXT H!HP=HP+16e 
ET 386 TP=SCR+X+26»Y!P0KE 712,e!P0KE TP,1 

6+12B 
HE 398 IF X>17 THEN POKE TP,BlX:X-l 
EU 468 IF X<2 THEN POKE TP,e!X=X+l 
EC 41B IF Y<4 AND X>e AND X<14 AND LF=5 T 

HEN GOTO 1246 
KF 426 IF Y<4 THEN POKE TP,8!Y=Y+1 
KD 438 IF Y>19 THEN POKE TP,8!Y=Y-1 
EF 448 POKE SCRiRNDC8)«3B6*168,58tl92!S0U 

ND 6,F,8,3iF=F+l!P0KE 711,FlIF F:86 TH 

EN F=75 
SE 458 IF PEEK(53778)<DL THEN GOSUB 546 
NK 466 IF FN>2 THEN DL=46 
RO 476 IF FN>4 THEN DL=86 
KM 486 IF FN>5 THEN DL:19B 
flV 498 IF FN>6 AND BU=3 THEN DL=255 
OU 588 GOTO 188 

VI 516 REM ^smmsMssm 

QU 528 REM 

TH 536 REM IJNJlilHil.'l 
ON 546 El=RNDC8]«15:E2=RND(6]«15i3 
OC 558 POSITION E1,E2:? «6;"D"! POSITION E 
l+l,E2+ll? «6;"t"iP0SITION El+2,E2+2!? 
»6;"0"!FOR D=l TO SiNEXT D 
FT 566 POKE 712,14!C0L0R liPLOT El,E2!DRfl 
HTO E1+2,E2+2!S0UMD B,1B8,B,16!P0KE 71 
2 
ZP 576 RETURN 

OH 588 IF BC:59 THEN FOR H:15 TO 8 STEP - 
lllFOR U=28 TO 33IS0UND 6,U,lB,H:NEX1 
UlNEXT H!SA:SA+1;L1=8!LF:LF+1 
OB 596 IF BC=59 THEN SP=SP + 1 1 RETURN 
OX 688 IF BC=58 THEN FOR H=15 TO 8 STEP - 
lllFOR U:2B TO 33!S0UND B,U,18,HiNEXT 
U!NEXT H!SA:SA+liL2=8!LF:LF+l 
NA 616 IF BC=58 THEN SP=5P+1 ! RETURN 
SW 628 IF BC:63 THEN FOR H=15 TO 8 STEP - 
lllFOR U=28 TO 33!S0UND 6,U, 16,H!NEXT 
UiNEXT H!SA:5A+l!L3:e!LF:LF+l 
LH 538 IF BC:63 THEN SP:SP+1 IRETURN 
XQ 646 IF BC:47 THEN FOR H=15 TO 8 STEP - 
ll:FOR U=26 TO 33IS0UND 8, U, 18, Hi NEXT 
UlNEXT Hl5A:SA+llL4rBlLF:LF+l 
ML 658 IF BC:47 THEN 5P = SP+1 1 RETURN 
?P 668 IF BC=43 THEN FOR H=15 TO 6 STEP - 




tte;'1l":G0SUB iisa 








ll:FOR U=2e TO 33:S0UND e,U,ie,H:NEXT 

UlNEXT H!5fl:Sft+l!L5:8!LF:LF+l 

B7B IF BC=4I THE* 5P:5P+l!RETURM 

688 RETURN 

698 POSITION 13,6! 

7B8 ? tt6;";"!RETURN 

718 ? n6i"!"!RETURN 

7Z8 ? »6J"?":RETURN 

738 ? «6;'V":RETURN 

748 ? »6;"+"!RETURN 

758 POKE 712,56:F0R R:l TO 28:50UND 8, 

R»5,6,18!NEXT RiSOUND 8,8,8,8:11-8 

768 POSITION P1,P2:? «6;"I!":G0SUB 588! 

POSITION Pl.PZl? n6;"a":G0SUB SOBlPOSI 

TION P1,P2;? «6l"a"lG05UB SBB 

778 POKE 71Z,e!Pl:8;P2=e!LF:LF+l:RETUR 

N 

788 POKE 712,5e!F0R R=l TO 28!S0UND 8, 

R*5,e,18!NEXT RiSOUND 8,8,8,8:12=8 

798 POSITION P3,P4:? »B;"H":G05UB 988! 

POSITION P3,P4:? «6)"B"iG0SUB 9BB:P05I 

TION P3,P4!? «6l"a"!G0SUB 988 

8BB POKE 712,B:P3:8!P4=B;LF=LF+l:HETUR 

N 

818 POKE 712,5e!F0R R=l TO 2B!S0UND 8, 

R»5,6,ie;NEXT R!S0UND 8,8,8,8:13=8 

828 POSITION P5,P6!? «e;"||'':GOSUB 988! 

POSITION P5,P6!? tte;"B"!GOSUB 9BB:P0SI 

TION P5,P6!? ttej"a":GOSUB 988 

838 POKE 712,B;P5:B:P6=B:LF:LF+l!RETUR 

N 

648 POKE 712,52!F0R R=l TO 28:S0UND 8, 

R»S,6,18:NEXT R:SOUND 8,8,8,8:14=8 

858 POSITION P7,P8!? tt6;"||":G0SUB 988: 

POSITION P7,PB:? nej"B"!G0SUB 98e!P0SI 

TION P7,P8!? n6:"a"!G0SUB 988 

868 POKE 712,B:P7=8!P8=8!LF=LF+1:RETUH 

N 

878 POKE 712,52:F0R R:l TO 28:50UND 8, 

R«5,6,ie!NEXT R:S0UND 8,8,8,8:15=8 

888 POSITION P9,P18:? tt6;"B";G05UB 988 

:P05ITI0N P9,P18:? «6i"a":G0SUB 988:P0 

5ITI0N P9,P1B:? «6!"fl":G0SUB 988 

898 POKE 712,e:P9=e!P18=8:LF=LFil:RETU 

RN 

988 FOR D=l TO 7B:NEXT D!HETURN 

918 REM ii<iij:r:v;»i»a 

928 POKE SCR+X+28»Y,1B 
938 FOR R:15 TO 8 STEP -1:F0R 5=1 TO 4 
:SOUND 8,S,B,R!P0KE 7i2,R!NEXT S:NEXT 
R 

948 SETCOLOR B,12,14:50UND 8,8,8,8!S0U 
ND 1,8,8,8 
958 FMEN=FHEN-1 

968 POSITION 1,8!? «6; SC:POSITION 17,8 
:? «6iFMEN:P05ITI0N 18,8:? a6jHPj" "J 
HT 978 POKE SCR+X+28»Y,S 
FH 988 FOR L=8 TO 95 STEP 5.9!S0UND 8,L,8 
i. ,1B:S0UND 1,L,18,5:S0UND 2,L,8,3:P0KE 
f 712,255:P0KE 712,e:NEXT L:POKE 712,8 
EH 998 POKE SCH+X+28*Y,B:X=18:Y:lB:F0R 5= 

8 TO 2:S0UND S,8,8,e!NEXT S 
RV 1888 IF FHEN=8 THEN GOTO 2338 
10 1818 FOR D=l TO 15IS0UND 8,D«4,8,2:NEX 

T D 
HH 1828 POSITION X,Y:? «6j" " 

;QT 1838 GOTO 188 

KO 1848 POSITION 1,8:? ttej<fII>I!IV;FN!POS 
I ITION 18,8:? «6j"bUilding "JBU 
<nt 1858 FOR F:l TO 3:P0SITI0N 2, OP!? tt6;" 
[ ,":F0R R=1 to 38:NEKT R:S0UND 8,58,18, 
fe 18: POSITION 2, OP:? »6j" " 
||K 1868 FOR R=l TO 38:NEMT R 
UT 1878 POKE 789,221 
Ttt 1888 SOUND 8, 188, 18, 18 :NEKT F:SOUND 8, 

BBS 
SQJ 1898 POSITION 2, (IP:? «6j"."!F0R D:l TO 

358:NEXT D 
M 1188 <lP=flP-3:FN=FN+l 
BL 1118 GRAPHICS 17:P0KE 7S6,CH/256:G0T0 



PJ 1128 GOTO 1858 

00 1138 GRflPHICS 17;P0KE 756, CH/256! J=2 !l 

F FN=8 THEN GOTO 14B8 
FH 1148 POKE 559,B:P0KE 712,97:P0KE 718,3 

4!LF:8:P0KE 788,14 
U 1158 IF BU=2 THEN POKE 718,135!P0KE 78 

8,44 
M 1168 IF BU=3 THEN POKE 718,B:P0KE 788, 

255 
IK 1178 IF BU>3 THEN GOTO 2518 
QQ 1188 POSITION 8, J!? tt6;" 

UBB": J^J-t-l 

IBM 1198 POSITION 8, J:? nSj" ||gGl]IJQ{Qje|]j 

r |||oiBB"!j=j^i 

111^1288 POSITION 8, J!? »E;" Jl^zJjJjjjjjjizJi 



KT 

zs 

DK 
BZ 
BO 
DU 
XD 
UN 
FO 

HP 



C5 
IN 
FO 

FF 

KR 
BY 

IL 
LH 
ZH 

LR 
OF 
JT 

PZ 

t«i 
OX 
ST 
ZJ 

liDB 



I 



IB7lBB":J=J^i 

IB 1218 IF J>21 THEN POKE 559, 34: GOTO 184 

8 
RK 1228 GOTO 1188 
CU 1238 REH hIii:ilH 
IS 1248 GBdPHICS 18:P0KE 756,CH/256:IF 5P 

=8 THEN FN=FNtl!G0T0 1138 
SG 1258 G:4:P0KE 718,135:P0KE 789,44:P0KE 
718,14!P0KE 788,87:S0UND 1,8,8,8:S0UN 

D B 6 B 8 
UI 1268 D:^EEK(568)+2S6»PEEKC561)+4:P0KE 

D+4,6:P0KE 712,3 
CL 1278 POSITION 4,2:? t>6!"f loor secured" 

:P0SITI0N 8,3:? »6j"(!njI!B" 

LU 1288 POSITION 8,8!? »6;" 

": POSITION 8,18:? «6;" 



VE 1298 FOR 1=1 TO 5P:P05ITI0N G,6:? tt6;" 

C'!G:G+l:FOR 1=15 TO 8 STEP -1:S0UND 8 

,18,18,I:NEXT I 
JN 1388 NEXT T 

IE 1318 POSITION 9,6:? »6!"'B":G05UB 1388 
RI 1328 POSITION 18,6:? n6;PU:G0SUB 1388 
NL 1338 POSITION 13,6!? «6;"y":G0SUB 1388 
LC 1348 FOR H=l TO 4!P05ITI0N 15,6:? «6;P 

U«SP:G0SUB 1398 
TK 1358 POSITION 14,6:? «6;" ":FOR 

E=l TO 58!NEXT E:NEXT H 
VL 1368 5C:SCtPW*SP!SP=8 
KK 1378 SP=8:GRAPHICS 17!P0KE 7S6,CH/25e: 

GOTO 1138 
NU 1388 FOR 1=15 TO 8 STEP -l!SOUND 8,58, 

ie,I:FOR D=l TO 2:NEXT D:NEXT l!RETURN 
: RETURN 
DZ 1398 FOR 1=15 TO 8 STEP -1:S0UND 8,28, 

18,I:F0R D=l TO 2!NEXT D:NEXT I:RETURN 
YA 1488 GRAPHICS 18:P0KE 75e,CH/25e 
KT 1418 G=l:K=6:P0KE 711,115:P0KE 789,44! 

POKE 718,14!P0KE 788,87 
UL 1428 D=PEEK(568]4256»PEEKC561U4:P0KE 

D«5,6 
MK 1438 POSITION 1,2:? n6j"building "JBUJ 

" secured" 
HF 1448 5C=5C+5A»H88e:F«EN=FHEN+l:F0R R=l 

TO 3 
VU 1458 FOR T=-25 TO 25 STEP l! SOUND B.AB 

S(T)^35,18,18:P0KE 789,ABS(T] :NEXT T!N 

EXT R:SOUND 8,8,8,8 
SC 1468 FOR D=l T O ie8:NEXT D!POSITION 8, 

4!? »6i" [TirnB 1 FREE HAN »":GOSUB 139 

8 
RZ 1478 FOR T=l TO SA:POSITION G,K!? «6i" 

C":G=G+l;FOR 1=15 TO 8 STEP -3!50UND 8 

,18,18,I:NEXT I 
VH 1488 IF G=18 THEN G=l!K=Kil 
KP 1498 NEXT T 
HH 1588 POSITION 11,8!? n6;"fi 1888":G0SUB 

1388 
TO 1518 FOR E:l TO 5:P0SITI0N 8,11:? «6;1 

88e»SA:G0SUB 1398 
PG 1528 POSITION 8,11:? tt6;" "! 

FOR D=l TO 58:NEXT D!NEXT E 
RG 1538 IF SA=35 THEN GOSUB 2658 
HP 1548 POSITION 8,11!? »6;188e«SA 
EP 1558 IF SA=35 THEN POSITION 8,11:? «6j 

iee8»SA>5e888 

HC 1568 FOR D=15 TO 8 STEP -1:S0UND 8,255 

,1B,D:S0UND 1,254, 18, D:FOR E=l TO 28:N 

EXT E:NEXT D 
ZU 1578 FOR D=255 TO 248 STEP -l!POKE 788 

,D:POKE 7e9,D:P0KE 7ie,D:P0KE 711,D:P0 

KE 712,D:NEXT D 
ZP 1588 SA=8:BU=BU+l:FN=l:PU=P0+188!AP=21 

:G0T0 1138 
OU 1598 GOTO 1518 
MC 1688 RESTORE 1648 
Ml 1618 READ A,B:SOUND 8, A, 18,18! SOUND 1, 

B,18,18:F0R D=l TO 28:NEXT D 
SS 1628 IF A=l THEN RETURN 
00 1638 GOTO 1618 
NA 1648 DATA 68,144,182,68,8,243,72,182,8 

.81.193.8 .91,217,1.1 

GU 1658 REH I'UJ JiJM JMTMT:M»;M 

TT 1668 CH={PEEK(186)-8)»256:F0R 1=8 TO 7 

:POKE CH+I,8!HEXT I 
CC 1678 FOR 1=8 TO 512:P0KE CH+I, PEEK (573 

44+1) :NEXT I 
PF 1688 RESTORE 1758 
UB 1698 READ A:IF A<8 THEN RETURN 
VU 1788 POKE 78B,A 
UD 1718 FOR J=e TO 7:READ B:POKE CH+A«8+J 

,8: NEXT J 
HJ 1728 POKE 711,A+58 

US 1738 GOTO 1698 

OK 1748 REH QXmiQMillE 

GP 1758 DATA 18,24,36,68,25,62,88,28,54 
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m 1768 DATA 1,16,157,74,68^126,57,86,132 

VE 1778 DATA 14,8,4,6,255,6,4,8,8 

TE 1788 DATA 4,8,8,4,8,16,8,64,8 

KZ 1798 DATA 5,1,66,8,34,8,64,28,128 

JZ ISBB DATA 6,8,8,4,88,8,28,8,8 

FG 1818 DATA 58,8,8,24,28,54,38,188,56 

ML 1828 DATA 2,215,215,8,215,8,215,215,21 

5 
YE 1838 DATA 55,56,56,144,124,58,56,48,18 

8 
RU 1848 DATA 42,124,254,186,186,178,178,1 

98,124 
VB 1858 DATA 27,56,56,144,124,58,56,48,18 

8 
HR 1868 DATA 49,16,64,8,1,28,64,2,16 
HO 1878 DATA 5,8,146,84,8,198,8,84,146 
JD 1888 DATA 32,255,129,129,255,129,129,1 

89,255 
BU 1898 DATA 29,8,6,39,23,86,124,18,48 
HE 1988 DATA 38,8,8,8,11,159,255,8,8 
DL 1918 DATA 12,1,64,8,32,57,68,124,56 
UP 1928 DATA 11,56,56,144,124,58,56,48,18 

8 
VO 1938 DATA 31,56,56,144,124,58,56,48,18 

8 
HR 1948 DATA 15,56,56,144,124,58,56,48,18 

8 
HR 1958 DATA 26,56,56,144,124,58,56,48,18 

8 
RC 1968 DATA 7,8,8,126,8,8,126,8,8 
ZR 1978 DATA 28,8,66.36,24,24,36,66,8 
LT 1988 DATA 8,8,2,88,56,24,4,64,8 
LY 1998 DATA 9,255,171,255,171,255,171,25 

5,255 

EF 2BB8 DATA -1 

BU 2B18 REM l»Haj;TH 

IN 2B28 GRAPHICS 17:P0KE 718,8:P0KE 756, C 

H/256:P0KE 788,145 
UU 2838 DL=PEEK(5681i256«PEEK(561H4:P0KE 
DL+7,7!F0R 1=1 TO 6:? a6!MEHT IlPOKE 

DL+8,3!P0KE DL+12,3 

KO 2848 ? tt6j" nUEXHf' 

XY 2858 ? t:6;" BY FRANK HARTO 

NE" 
LP 2868 POSITION 8,5;? »6;" 



QN 2878 POSITION 8,9!? tJ6j" 

"iPOKE 711,89 

HS 2888 POKE 7B8,172:F0R D:15 TO 8 STEP - 

8,2lS0UND 8,255,18,D:S0UND 1,254, 18, D! 

FOR E=l TO 2:NEXT EiPOKE 53274,0^38 
LE 2898 NEXT DtPOSITION 11,12!? tt6;"Y0U A 

RE THE FIREHAN" 
OC 2188 POSITION 3,17!? »6;"* "!FOR D:l T 

23B:NEKT D 

TF 2118 POSITION 4,12!? «8;"Y0U HIST SflUE 

THE TRAPPED PEOPLE" 
UN 2128 POSITION 12,16!? Jl8;"a n"!P05IT 

ION 13,17!? «6;"H H"! POSITION 13,18!? 

»6;"S 6 0"!FOR K:l TO 7 
OT 2138 POSITION 9,17!? «6;"."!F0R E:l TO 
48!l(EXT E!POSITI0N 9,17!? tt6j FOR 

E=l TO 4e:NEXT EiNEKT K 
OZ 2148 POSITION 2.12!? tt6j"BEF0RE THEY A 

RE KILLED IN THE INFERNO" ! FOR D=l TO 1 

88!NEXT D!P1=13!P2=17 
RC 2158 POSITION P1,P2!? a6;","!G0SUB 988 

!P0SITI0N P1,P2!? J16;":"!G05UB 9B8!P05 

ITION P1,P2!? tt6!">"!G05UB 988 
GX 2168 P1=P1^2!IF Pl=17 THEN GOTO 2188 
QH 2178 GOTO 2158 
OG 2188 POSITION B.12!? «6l" PRESS 

FIRE TO USE EXTINGUISHER "!X:3!Y: 

17!F0R D=l TO 148!NEKT D 
DP 2198 POSITION X,Y-l!? tt6j"Q"!P05ITION 

X-1,Y!? «6;"Q"!P05ITI0N X+1,Y!? «6;"Q" 

!POSITI0N X,Y+l!? »8;"0" 
NE 2288 FOR E=l TO 148 
UN 2218 NEXT EiPOSITION X.Y-l!? tt6j PC 

5ITI0N X-l.Y!? M6!" "iPOSITION X+1,Y!? 

B6; POSITION X,Y+l!? »6;" " 

QL 2228 FOR E=l TO 2B8:NEXT E 

HP 22IB POSITION 8,12!? «6J"T0 REFILL EXT 

IHGUI5HER PICK UP CANISTER "iFOR D= 

1 TO 18e!NEXT D 

IN 2248 POSITION 5,17!? »6;"J"!F0R D:l TO 

2BB:NEXT D 
GK 2258 POSITION 12,16!? »6; POSIT 

ION 13,17!? tt6j" "!P05ITI0N 13,18!? 

06;" 
UU 2268 POSITION 18,16!? »6;") ) ) "!POSI 

TION 18,17!? 06;") J ) "!POSITION 1 

8,181? »6;") J ) 
ML 2278 POSITION 8,12!? »6J" COMPL 

ETE ALL 3 BUILDINGS "!FOR D=l TO 
45BINEXT D 



T5 2288 POSITION 8,12!? tt6)" 

PRESS START ";FOR D 

=1 TO 2e!NEXT D 
BH 2298 IF PEEK (532791 =6 THEN GOTO 2498 
SC 2388 IF STRIG(8]=8 THEN GOTO 2498 
DY 2318 POSITION 8,12!? «6i" 

"!FOH D: 

1 TO 28:NEXT D 
SK 2328 GOTO 2288 
XK 2338 FOR R=15 TO 8 STEP -liFOR S=l TO 

4!S0UND 8,S,18,R!P0KE 712,R!NEXT S!NEX 

T R 
NF 2348 FOR 1=5 TO 15!P0SITIDN 8,1:? ttej" 

"!HEXT I 
BD 2358 D=PEEKC5e81i256«PEEKC5eili4!P0KE 

D + 8,7 
AO 23 68 POSITI ON 8,5!? «6!? «6!? »6;" 

li hrijillJJj "!FOR 1=255 TO 8 STEP -l!P 

OKE 53274, I! SOUND 8,1,4,18 
DJ 2378 SOUND 1,I,8,6!NEXT l!POKE 712, BiP 

OKE 7e8,255!P0KE 711,89 
HO 2388 J=e 
VB 2398 SOUND 8,8,e,8!S0UND 1,8,8,8 

CR 2488 FOR D=l TO 1 58!NEXT D!0=8 

UB 2418 ? »6!? »6J" l jJH.*4l:1A»TMWm " 
DH 2428 FOR D=l TO 25! NEXT D! POKE 712, B!P 

OKE 711,RNDCBJ»5+6B:D=0+l!lF 0=24 THEN 
GOTO 2468 
AT 2438 IF PEEK (532793 =6 THEN GOTO 2498 
SO 2448 IF STRIG(8]=8 THEN GOTO 2498 
OT 2458 GOTO 2428 
AU 2468 FOR T=22 TO 8 STEP -l! P OSITION 8, 

T!? "^■■■'TmmmTTTTTTT.MMI.M,IIM,mM,.>..cn„ ^ = 1 

TO 4!NEXT D!NEXT T 
SY 2478 FOR T=22 TO 8 STEP -l!POSITION B, 

T!? «6l" "!FOR D=l 

TO 4:NEXT D!NEXT T 
PG 2488 GOTO 2828 
RZ 2498 GRAPHICS 18 ! SOUND 8,228,18, IBiSOU 

ND 1 238 18 18 
FV 25B8'P0siTl6N 5,5!? tJ6;"ia^EEJE":F0 

R R=l TO 215!P0KE 53274, RiNEXT RiSOUND 
l,B,B,e!GOTO 78 
NH 2518 GRAPHICS 17!P0KE 756, CH/256!P0KE 

712,115:P0KE 559,8 
ZN 2528 POKE 7B8,6!P0KE 718,8 
HC 2538 FOR 1=15 TO IB 
EK 2548 POSITION 5,1!? tt6;"]] ) ])] ))]) 

)) J)":NEXT I 
HS 2558 POSITION 8,14!? n6;"J )))" 

UE 2568 FOR 1=19 TO 21 

RZ 2578 POSITION 5,1!? tt6;"!B Q EfB mH 

QD iB"!NEXT I 
CD 2588 POSITION 8,22!? «6;" 



BU 2598 D=PEEK(56B}t256»PE EK(56H !POKE Pt 
6,7!P0SITI0N 3,1!? n6!" [mT i Tg\4lll:VHiliW 
II 

AE 2688 ? »6!? n6;" you have saved the 

city" ! POKE 559l34!G0SU8 138B 
HA 2618 ? »6!? n6!' ^i^:H■.■^lIll!lj "JSC!P0SIT 

ION 18,14!? H6i"£"!G0SUB 1398 
DN 2628 FOR D=l TO 22B:P0KE 53274, PEEK(53 

778) !SOUND 8,RND(8]»1B>286,8,9!P0SITI0 

N RND(e}«19,RND(B)«4t8!? t>6j"!" 
HR 2638 POSITION RND(6]»19,RND(8]M+B:? it 

6;" "!POKE 711,PEEK(53778l!NEXT D!SOUN 

D fl B B fl 
YY 2648 FOR D=255 TO 248 STEP -1!P0KE 788 

,D:P0KE 789,D:P0KE 71B,D!P0KE 711,D:P0 

KE 712,D:NEXT D!G0T0 58 
KI 2658 GRAPHICS 18!P0KE 756,CH/'2S6!P0KE 

711,115:SC=5C+S88B8 
GA 2668 POKE 7e8,14!F0R F=l TO 5!P0SITI0N 
4,1!? «5;"PERFECT 5C0RE "!G05UB 1388 

ZL 267B POSITION 4,1:? 06 ; "(iniSilEHilB" 

!GOSUB 1398:NEXT F 
GN 268B SOUND B , 8. B. B iPOSITION 2,4:? «6J" 

EXTRA BONUS SEEBB" 
SJ 2B9A GOSUB 1688 ! POSITION 7,6!? tt6:"HUR 

RAY" 
HR 2788 POSIT ION 18,7: ? OS;"*" : POSITION 5 

,9!? «6;" l!l!l!l!i™i!l! " 
XN 2718 FOR D=l TO 275!NEXT D :RETURN 
LH 2728 REH lf<:l JitmiHUB™ 
EG 2738 IF HP<= "" " 

ETURN 



8 THEN SOUND B, 255, IB, 18 !R 



6H 2748 POSITION X,Y-1;? tf6j"Q": POSITION 

X-1,Y:? «6;"Q"!P0SITI0N X+1,Y:? Jt6;"Q" 

!POSITION X,Y+l!? a6)"D" 
HR 2758 POSITION X,Y-l!? 06; POSITION 

X-1,Y!? «6J" "IPOSITION X+1,Y;? tt6;" " 

:P05ITI0N X,Y+l:? tt6j" " 
VO 2768 UP=HP-5:S0UND B, 3, 8, IB! SOUND 1,7, 

8,ie:RETURN ^ 
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Welcome. Once again we find ourselves 
together for a look at what's happening in and 
around the world of Atari computers. Before 
I get down to the details, I want to share a 
few thoughts about technology with you. This 
is an especially good time to do it since a new 
decade is just around the corner. 

Way back in the mid-1970s, I bought a cal- 
culator. Not just any old calculator, but a 
marvelous new computing device called the 
Hewlett-Packard HP-65. What made it so ex- 
citing was that it was the first "programma- 
ble pocket" calculator ever made. 

The machine had 100 steps of program 
memory and was programmed by "record- 
ing" the keystrokes pressed from the key- 
board. It was fairly straightforward to do. You 
simply put the calculator in "write" mode 
and pressed the keystrokes as you would if 
you were solving the problem directly with 
the calculator functions. You could program 
a request for input from the keyboard which 
would cause the machine to pause when the 
program was run. Then you would enter a 
number and resume the program, causing it 
to include that number in the calculations. 

The HP-65 was powerful. It had condition- 
al testing which meant that you could com- 
pare two numbers against each other and have 
the program branch depending on whether 
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they were equal or unequal. It also had a flag 
that could be set and tested for additional pro- 
gram branching. Since the HP-65 was a 
scientific calculator, it had a slew of built-in 
math, trig and other scientific functions. 

Once a program was written, you could 
save it on a small strip of magnetic tape. This 
was useful since once you turned off the 
machine, the memory contents were lost. To 
re-enter the program, the magnetic card was 
inserted back into the miniature card reader 
inside the machine. All of the program steps 
were displayed as "keycodes" or row/column 
locations of the specific key on the keyboard. 

The HP-65 was not really a consumer 
product, at least not for the average con- 
sumer. It cost $800 (in 1975) which was ex- 
pensive. But for me it was worth it. I learned 
the fundamentals of programming on that 
gadget and have been thankful ever since. At 
the time, my family and friends thought I was 
a fool to spend that kind of money for some- 
thing like that, but I can't imagine what my 
future would have been like without it. 

You see, once I learned to program that cal- 
culator, I started to learn to program in BAS- 
IC using a computer time-sharing service that 
was used by the company I worked for. I be- 
came very proficient at programming in BAS- 
IC and some of the proprietary languages 
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used by the time-sharing company. Eventu- 
ally I took a job with the outfit which lasted 
for almost four years. That led to another job 
and where I am today. 

Recently, I bought another HP calculator. 
Oh, there were a few other calculators in be- 
tween, but the new machine is at least ten 
times more powerfiil than the HP-65. It costs 
$100 which is almost /lo the price. If you 
figure inflation over eight years into the 
difference, you might have a price difference 
of 50 times. 

My point? Technology is constantly im- 
proving. Those of us who bought an Atari 
800 in the early 1980s were amazed with 48K 
of memory and the things the computer could 
do. Now, an ST costs less money than the ear- 
ly 8-bit Atari computers and has 20 times the 
features and performance. Technology is rela- 
tive. It must boggle the mind of my parents 
who grew up with horses, no mass commu- 
nications, unsanitary conditions (by today's 
standards), etc., to live in the world of today. 

The consumer electronics of the 1980s 
were a tidal wave of technology. The new en- 
tertainment, educational and commercial 
products have already had profound impact 
on our lifestyles. The industry does over $30 
billion worth of business annually and we are 
part of it. Ten or 15 years ago the notion of 
a "computer store" was completely foreign 
to most people, even those who should have 
known. Now, it seems there is a computer 
store on every block. Unfortunately, not 
many of them sell Atari computers. 

What does all of this have to do with Atari 
computer users? Everything! Atari is in the 
business of selling electronics products. 
Whether it is video games or computers, if 
there is money to be made, Jack Tramiel and 
company will be in that business. This is per- 
fectly reasonable. We've seen Atari continu- 
ally introduce new and more powerful 
computers over the last several years, and 
there is no reason why it won't continue. 



The good news 



Unfortunately, we have not seen Atari do 
a good job of marketing the ST computers, 
i.e., by keeping dealers happy with a good 
supply of products in the U.S. and by com- 
municating with the dealers and the users. 
But the good news is Atari seems to be chang- 
ing. At the least. Atari is finally beginning 
to recognize some of these problems and take 



steps to rectify them. 

Here are some of the things Atari is doing 
right. They have cut off mail-order dealers, 
who have provided little or no support and 
often undercut the retailers who do provide 
service for what they sell. There has been a 
lot of controversy about this, but the user will 
benefit in the long run by having more retail 
dealers willing to sell Atari products and 
therefore better support and good prices 
driven by competition. 

Atari has set up a dealer council made up 
of several large dealers around the country. 
Their mission is to meet on a regular basis 
and discuss the retail business problems with 
Atari top brass. Atari has also started pub- 
lishing a dealer newsletter to foster better 
communications. In fact, this dealer news- 
letter will also be sent to the SYSOPS of 
CompuServe, GEnie and DELPHI in order 
to improve communications on these infor- 
mation services. Atari has made an effort to 
be more visible on these services so that in- 
dividual users can ask questions and get 
direct replies. 

Atari now has a policy of not pre- 
announcing new products. One of the biggest 
complaints in the past was that Atari would 
announce a bunch of new products that would 
take forever to become available, if at all. 
With the lack of information or misinforma- 
tion, rumors are created which causes fur- 
ther problems. 

By the time you read this. Atari will have 
introduced the new ROMs for the ST. These 
new ROMs make GEM slightly faster by fix- 
ing some long-standing bugs, and providing 
a different file-selector box. Also, the Slit- 
ter chip is finally making it into production. 

Advertising has been one of the missing 
links in the last couple of years. I understand 
Atari's point of view: It couldn't advertise in 
the U.S. because it didn't have machines to 
sell. If they did advertise, they would have 
unhappy consumers who couldn't get 
products at their local retailer. This is appar- 
ently about to change. Atari has opened a new 
plant or two in the Far East and also is about 
to open a new plant in Texas. With increased 
production Atari should be able to supply the 
new demand. 

Lastly, Atari has big plans for the recently 
acquired Federated Electronics stores. One 
of Atari's major goals for these stores is for 
them to have an excellent service facility. As 
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most of us know, there are very few places 
one can go to get an Atari computer fixed. 
The goal is to start with service on a district 
basis, covering up to eight stores. The serv- 
ice centers would pick up and deliver 
machines to Federated Stores within its dis- 
trict for quicker repair turnaround. 

In addition. Atari wants these stores to be 
full-service centers that will carry the entire 
Atari computer line as well as other products. 
Further, these stores would become a base 
for an outside sales force dedicated to large 
customers and commercial applications. Of 
course, some of the other improvements men- 
tioned above such as advertising and negat- 
ing the Atari "game image" have to happen 
too in order for the outside sales force to have 
someone to sell to. 

More Federated stuff 

The Atari-owned Federated Electronics 
stores have been losing money in the last cou- 
ple of quarters of 1988. Atari itself has said 
that it will take another quarter or two be- 
fore the stores become profitable, but they can 
see the light at the end of the tunnel. Now 
it seems that part of the problem with the 
stores may have been out of Atari's control 
from the start. 

Atari recently sued the former owners of 
The Federated Group (and their financial ad- 
visors) for inflating the value of the compa- 
ny's assets and thereby increasing the price 
of the deal. Atari purchased 67 stores in Au- 
gust 1987 for about $67 million. At the time, 
some analysts criticized the deal and suggest- 
ed the price was too high, but Jack Tramiel 
stood behind his decision to purchase the 
stores. Now, Atari is claiming that they paid 
$43 million more for the stores than they 
should have. 

Other companies have tried operating their 
own stores to gain a greater market share. 
However, such companies as IBM, Xerox and 
Digital Equipment have not been unsuccess- 
ful with this technique and have, in some 
cases, sold their storefronts. On the other 
hand, Tandy has used this method success- 
fully to get products on shelves. 

Learning can be fun 

One of the neat things about writing this 
column every month is that I get to pick out 
my own subheadings. Maybe not a major 
perk but still exciting. The above subhead 
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may sound goofy but it is true. I won't bore 
you with the details of experimental studies, 
but it has been proven that learning takes 
place more rapidly and with better retention 
if the process is fun. Plus, if something is 
fun, you are more apt to do it. 

This is true with one category of software 
that has been around since the early days of 
home computers: typing tutors. Ever since 
my first Atari 800, 1 have seen and used typ- 
ing programs that have been said to increase 
your typing speed while using the power of 
the computer to aid the process. This has 
generally been true. Interestingly, as com- 
puters have become more powerfiil, so have 
the typing tutorial programs. 

A new program in this class has just been 
released for the ST. It is called (gulp) Mavis 
Beacon Teaches Typing (distributed by Elec- 
tronic Arts for Software Toolworks, One 
Toolworks Plaza, 13557 Venmra Blvd., Sher- 
man Oaks, CA 91423; 818-907-6789). 

I'll call it Mavis for short hereafter. Mavis 
is a highly advanced program that claims to 
use artificial-intelligence (I hate that phrase) 
techniques to customize individualized les- 
sons. I don't know if it does or not but this 
is a super program, the best typing tutor I've 
seen on any computer. 

There are a number of things that make this 
an excellent program. One is that mindless 
letter combinations and word repetitions are 
not used for the typing drill. Instead, 
meaningful sentences taken from Guinness 
Book of World Records, famous quotations, 
jokes, great writings, riddles and other 
sources are used for the training. This makes 
for interesting lessons that hold your atten- 
tion while you practice your typing. 

Mavis consists of five screen displays, the 
first of which is the chalkboard. Here the new 
or returning student is greeted, areas requir- 
ing more work are noted and exercises are 
recommended. Next stop is the classroom 
where you actually practice your typing. The 
screen consists of a miniature monitor on the 
top and a ST keyboard on the bottom. A pair 
of ghostly transparent hands are properly 
positioned on the keyboard at all times for 
guidance. 

As you type each letter the hands show the 
correct finger placement, but if you find them 
distracting, they can be turned off. When the 
hands are turned off, the keys on the keyboard 
light up when they are touched. The moni- 
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tor shows both the lesson text as well as your 
typing, and the whole process is intuitive. 

The workshop screen is used to practice 
particular skills. It is here where you display 
what you learned from the classroom. This 
screen includes a clock, metronome and ac- 
curacy gauge. The metronome is used to keep 
a steady beat while typing. Apparently 
studies have shown that some people when 
learning to type hesitate slightly before try- 
ing a difficult finger position. This slows 
down the typing rate, and the metronome can 
help overcome the problem. 

Most typing programs come with a game, 
and Mavis is no different. But the road-race 
game is better than shooting down aliens and 
probably more effective since large amounts 
of text must be entered. The screen shows the 
dashboard of the car you are in and another 
car on the right. The faster you type the faster 
your car goes, pulling ahead from the other 
one. The speedometer shows words-per- 
minute typed, and another meter shows ac- 
curacy. 



Throughout the program, many graphs are 
used to show your typing speed in a variety 
of ways. These bar graphs show raw speed 
with or without error penalties (one keystroke 
is subtracted for each mistake), progress by 
letter, percent error by key, etc. In addition, 
your progress can be displayed either cumula- 
tively or by lesson. 

Mavis Beacon Teaches Typing uses the 
ST's capabilities quite well. The graphics are 
superb, sound is used effectively and mouse 
control is good. There are also plenty of help 
screens avaOable. Further, clear objectives are 
always given before every lesson. 

About the artificial-intelligence deal, the 
program does use these types of techniques 
to tailor the lessons to the user's progress and 
problems. Software Toolworks is the compa- 
ny that did Chessmaster 2000, and I have no 
doubt that the Mavis program is equally as 
sophisticated. Mavis is the program you 
should get to learn or to improve your touch- 
typing skills. Best of all, Ms. Beacon won't 
rap your knuckles when you make a mistake, fl 
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ALPHA SYSTEMS Is constantty innovating to provide more po 
lor your 6-bHAtarls 



HACK PACK 

Special OFFER 

The Alpha Systems HACK PACK conloins all our 

fines) products tot making Back-up copies, __ .. 

Analyzing, Understanding and Protecting your 

Atari progroms. II comes complete witti Atari 

Protection Tectiniques (Book and Disk I), Advanced Proteclion Tectiniques (Book and Disk II), Tfie 

Chipmunk. The Sconalyzer, The impersonotor and Disk Pack 1 000. Worth over S 1 50 Get them oli 

for Ihe special price ot Just $99.95 

Atari Software Protection Tectiniques V6I I & II 

These Book and Disk packages detail the most advanced copy protection methods in use today They 
guide you through the hiethods used to create Ihe proleclion as well as the copying techniques to get 
around Ihem, They include information on Phreaklng • Hacking • On-line security • Block boxes • Seif- 
deslructing programs • Pirate bulletin board systems • Logic bombs • New piracy lows • Hordware 
data keys • Weak sectoring (Phantom. Fuzzy and unstable sectors) • Overfilled tracks • CRC errors 
Bonk Selecl corfridges and MUCH, MUCH MORE, The disks include automatic program proleclors. 
Prolection Scanners, directory hiding and more, 
BOOK I and DISK I $24.95 

BOOK II (Advanced protection) and DISK II $24.95 
Special Offer, Order botti sets for Only $39.95 

CHIPMUNK 

Automatic Disk Back-Up System. Moke perfectly running unprotected back-up copies of hundreds of 
the most popular Atari programs. Chipmunk's sophislicofed progromming Aulomaticaliy finds and 
REMOVES copy profectlon from most Atari programs. Back-up even heavily prolecled programs with 
ease Finaily, a back-up system that needs no special hardware or skills 
(It you need o lull list of what Chipmunk copies, call or write for our free coiolog) $34.95 



PARROT II 

An All New Parrot sound digitizer for your Atan, Parrot II is a 
sophisticated new hordware device that plugs inio your joystick 
port. Parrot II has two inputs, One lor a microphone and one for a 
powered source such as a tope playei. radio or Compact Disk. 
Tfie Powerful Parrot II software lets you record sounds info your computei and play them back on any 
Atari, Parrot II turns your computers keyboard into a musical inslrumenf with nine different sounds 
covering three octaves each. The sounds can be anything, a dogs bark, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot II lets you modify the sounds on a grophic display to create brand new sounds ond special 
effects. Best of all. the sounds and voices can be put into your own programs thai con be used on 
any slandord Atori, Explore the world of digilal sound ond music. ONLY $59.95 
Pre-Secorded Sound Disk fvlore pre-recorded sounds for Parrot $4.95 
nVRROT il Demo Disk (Does not require Parrot to run) $5.00 






POP-N-ROCKER 



Sconalyzer Aulomaticolly scan & analyze comnnercial piogtams Unlock programming secrets and 
leorn (rom Ihe masters $29,95 

Impersonator Cartridge to Disk back up system. Create njnning back-up copies of any cartridge 
-— 3il»n (up,lol6K) $29.95 

tSSS* CHEAT 

Get more from your games with CHEAT Tired of spending days trying to beat a game? Tired ot getting 
stuck just when you need another life? Cheat is on innovative new product that gives you the chonce 
you need lo beat your favorite gomes Cheot works with hundreds of Atari gomes to give you 
unlimited lives or power End the frustration and get hours more enjoyment from your gomes. (Coll oi 
write Alpho Sysiems lor our free catalog with o lull list ol the programs Ihot work with Cheat) ONiy $24.95 

BASIC TURBOCHARGER 

NOW tor the firs! time a BASIC programmer con get the power, flexibility and incredible speed of 
machine longuoge BASIC TURBOCHARGER is a book and disk package that contains over 1 50 
ready to use machine language routines. Complete instructions show how to odd Ihem to your own 
BASIC programs to get these feotures ond more: • Smooth Scrolling • Player/Missile control • Load & 
Save Picture (lies • Sorting and Searching • Special Effects Graphics ■ Incredible Speed • Much. Much 
f^iore • Over 1 50 programs You've heard of the power of Assembler, now harness il for your own 
needs. $24.95^ 

216-374-7469 





a tost paced, multi-player trivia gome that mixes guestions 

with real songs (digitized 
with Parrot), Be the first to identify the songs and answer Ihe music trivia questions. Pop-N-Rocker 
comes with three dale disks and lets you add new questions so if will never get old. Ybu can use a 
Parrot Sound digitizer to odd new songs too! Use any kind of music from Rock to Classical lo 
Nursery Rhymes. A new concept in entertoinment and a perfect add-on for Porrot. $24.95_ 

COMPUTEREYES & MAGNIPRINT II + 

Turn your computer into o digital portroil studio. This complele package lets I 

you capture, save & print digital images from your Video Camera, VCR 

or TV. COMPUTEREYES tiordwore plugs directly into your joystick ports tor 

easy use. Print your picture on o 6 toot poster $-|i9.95 

ComputerEyes camera system 

Comes complete with everything above, plus a block and white video . .- ' -^ A' 

comeio and connecting coble $329.95 W^mPlmm 

Graphics 9 Software - Add o new dimension to your COMPUTEREYES GIANT WALL SIZED POSTERS 

pictures - captures images in 1 6 shodes of grey $12.00 

Magniprint II + 

Easily the most powerful print program ovailoble today Print graphics from almost any format in 

hundreds of shapes, sizes, and shades Supports color printing and lets you create giont posters. 

Magniprint II + lets you stretch and squeeze, invert, add text, adjust shading and much more 

Works with EPSON. NEC, Citoh, Panasonic, Gemini, Star, XlvlMSQl, ond compatible punters. (850 

interlace or equivalent required). 524.95 

Graphics Transformer 

Now you con combine the most powerful leotures of oil your graphics programs. Create print shop 

icons from o Koala pad picfure, from o photo digitized with ComputerEyes. or any picture tile 

Graphics Transformer lets you Shrink, Enlarge and Merge pictures tor unequaled flexibility. $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finally on ollernalive to buying expensive computer add-ons. Your Atari Comes Alive 
shows you how lo built them yourselt. This 'How-To' book and disk package gives you complete 
step by step instructions ond programs needed to built ond control these exciting devices and MORE 
• Light Pen • Light & Motor Controllers -Alorm Systems • Voice Recognition • Environmenfol Sensors 
•Doto Decoders • More than 1 50 pages, libur Atari Comes Alive $24.95 



VISA & MASTERCARD, ORDER BY 
PHONE, OR SEND MONEY ORDER TO: 



ALPHA SYSTEMS 1012 SKYLAND DRIVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAINES (3 qames 
on a disk) Free wiin any orOer o( 3 or mofe Hems Include S3 Ou slip & fidlg (US Canada) Ohio fcs odd 5 '2=^0 soles \qx 
Foreign orders odd S8,00 srip & tildg. Coll or wnle lor Iree coiolog. Customer Service Line (216) 467-5665 f^-F 9-3, 
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continued from page 11 

leee data 255, 255, 32, 65,27, 66, a, 9,31, 7 

,44, 7,16?, 69, 141, 2, 8825 

IBIB DATA 211,24,96,169,179,133,18,163 

,79,133,11,96,8,8,8,179,1445 

1829 DATA 188,165,172,172,161,178,9,9, 

161,178,165,174,161,9,9,9,3832 

1938 DATA 9,8,8,35,47,48,57,58,41,39,4 

8,52,9,289,217,216,3952 

1948 DATA 211,8,9,9,8,9,8,8,9,186,111, 

184,118,8,111,114,9699 

1858 DATA 116,195,122,9,9,9,9,8,8,194, 

195,193,184,8,8,115,8365 

1868 DATA 99,111,114,181,99,16,16,16,1 

6,16,16,9,9,249,236,225,3893 

1878 DATA 249,229,242,8,17,9,9,248,236 

,225,249,229,242,8,18,8,7785 

1889 DATA 9,115,99,16,16,16,16,16,16,8 

,9,115,99,16,16,16,5474 

1898 DATA 16,16, 16, 8,9, 23li, 218, 16,9,23 

6,33,8,244,218,25,25,3978 

1189 DATA 9,248,18,9,236,218,15,9,112, 

112,112,112,112,112,71,54,3891 

1118 DATA 65,112,112,112,112,78,74,65, 

112,112,79,94,65,65,194,65,3932 

1128 DATA 112,112,112,78,299,57,6,79,2 

88,58,134,78,0,57,6,6,9694 

1138 DATA 6,6,6,6,6,6,6,78,9,58,6,6,6, 

6,6,6,2924 

1148 DATA 6,6,6,65,218,65,9,9,8,9,8,8, 

B B 8 2916 

li5B DATA 8,8,8,9,9,8,255,255,255,255, 

255,255,255,255,248,248,19 

1169 DATA 248,248,28,66,23,67,248,248, 

248,248,15,15,15,15,15,15,2128 

1178 DATA 15,15,3,7,14,28,56,112,224,1 

92,192,224,112,56,28,14,4398 

1188 DATA 7,3,3,12,28,68,124,124,128,1 

28,192,48,56,68,62,62,2229 

1198 DATA 1,1,1,1,62,62,66,56,48,192,1 

28,128,124,124,68,28,2742 

1289 DATA 12,3,128,64,8,8,8,9,8,9,8,8, 

32,16,8,8,2498 

1218 DATA 8, 8, 9,8,6,8,8,4, 9, 9,9,8,8,9, 

8,8,1298 

1228 DATA 2,1,1,2,8,8,8,9,9,9,9,8,4,8, 

8,8,1399 

1238 DATA 8,8,9,9,9,9,16,32,9,8,8,9,9, 

9,8,9,1598 

1249 DATA 64,128,9,85,179,9,85,179,9,9 

,66,165,99,69,69,99,1761 

1258 DATA 165,66,9,8,24,68,69,24,8,8,0 

,9,34,28,8,28,3681 

1268 DATA 34,9,9,9,8,8,62,8,8,8,8,16,3 

6,26,88,36,4872 

1278 DATA 8,8,248,96,126,248,249,126,9 

6,248,15,6,126,15,15,126,4738 

1288 DATA 6,15,9,8,8,255,1,255,1,8,1,1 

,9,1,255,1,8789 

1298 DATA 255,8,255,255,9,235,236,237, 

1,21,28,19,255,128,72,138,7238 

1388 DATA 72,169,66,162,8,69,79,37,78, 

141,18,212,141,9,212,142,5995 

1318 DATA 25,298,184,178,184,88,64,238 

,178,238,229,238,286,238,287,239,7944 

1329 DATA 212,238,24,67,19,68,219,238, 

224,152,7,189,193,2,157,19,7385 

1338 DATA 288,292,288,247,173,244,2,14 

1,9,212,169,192,141,14,212,169,1382 

1348 DATA 9,162,4,213,214,249,2,214,21 

4,282,288,247,138,172,2,6,299 

1358 DATA 136,153,8,68,172,3,6,136,153 

,8,61,174,8,6,189,8,1199 

136B DATA 59,41,252,157,8,59,174,9,6,1 

89,8,59,41,243,157,8,3471 

1378 DATA 59,169,8,133,285,174,4,6,173 

,8,6,24,125,216,66,141,4258 

1388 DATA 9,6,141,6,288,232,173,2,6,24 

,125,216,66,141,2,6,2693 

1398 DATA 165,176,281,18,144,8,239,285 

,165,295,281,1,248,215,174,18,1226 

1489 DATA 6,173,6,5,24,125,216,66,24,1 

25,216,66,141,6,5,141,3681 

1419 DATA 4,288,232,173,8,6,24,125,216 

,66,24,125,216,66,141,8,4885 

1428 DATA 6,179,189,8,59,9,1,157,8,59, 

165,285,281,1,248,18,5197 

1439 DATA 165,177,291,1,248,89,169,8,1 

33,285,174,5,6,173,1,6,3385 

1449 DATA 24,125,216,66,141,1,6,141,1, 

288,232,173,3,6,24,125,3787 

1459 DATA 216,66,141,3,6,155,176,281,1 

9,144,8,238,285,165,285,281,1737 



1468 DATA 1,248,215,174,11,6,173,7,6,2 

4,125,216,66,24,125,216,5426 

1479 DATA 65,141,7,6,141,5,298,232,173 

,9,6,24,125,216,66,24,3934 

1488 DATA 125,216,28,68,15,69,66,141,9 

,6,178,189,9,59,9,4,9752 

1498 DATA 157,8,59,155,176,291,7,176,3 

,76,154,68,169,8,133,281,6732 

1599 DATA 174,16,6,173,12,6,24,125,216 

,66,141,12,6,141,2,298,3389 

1519 DATA 232,173,14,6,24,125,216,66,1 

41,14,6,168,162,8,189,191,6664 

1528 DATA 66,153,9,62,136,202,298,246, 

238,281,165,176,281,18,144,68,1336 

1538 DATA 165,291,281,1,248,282,165,17 

6,281,13,144,48,174,17,6,173,7136 

1548 DATA 13,6,24,125,216,66,141,13,6, 

141,3,298,232,173,15,6,4456 

1558 DATA 24,125,216,66,141,15,6,168,1 

62,8,189,191,66,153,8,63,4834 

1569 DATA 136,292,208,246,239,291,165, 

201,281,3,248,288,165,212,291,17,4292 

1579 DATA 298,26,169,9,133,212,169,8,1 

62,8,165,178,281,2,240,2,7228 

1588 DATA 162,16,189,159,66,153,7,66,2 

82,136,298,246,169,9,133,295,692 

1590 DATA 162,2,189,1,6,149,202,202,20 

8,248,155,178,281,2,248,47,1577 

1608 DATA 169,98,141,18,288,141,192,2, 

159,134,141,19,288,141,193,2,7935 

1618 DATA 162,8,189,175,66,164,283,153 

,8,68,198,293,164,284,153,8,9511 

1628 DATA 61,198,284,292,238,295,165,2 

95,281,9,144,239,76,95,228,169,3357 

1639 DATA 134,141,18,288,141,192,2,169 

,98,141,19,288,141,193,2,169,8349 

1648 DATA 8,133,16,69,11,79,178,162,16 

,76,224,68,138,72,166,238,8483 

1658 DATA 224,3,248,31,166,227,224,9,2 

49,16,292,292,282,134,227,142,3629 

1668 DATA 2,218,169,172,141,3,218,76,8 

7,69,238,239,169,252,133,227,4193 

1678 DATA 76,87,69,166,189,224,298,176 

,15,232,232,134,189,142,2,219,2338 

1688 DATA 169,166,141,3,219,76,87,69,1 

69,8,141,3,218,173,238,58,7921 

1690 DATA 201,16,208,68,162,51,134,191 

,166,225,224,1,248,25,166,228,2197 

1788 DATA 224,70,176,19,232,232,134,22 

8,142,6,218,169,164,141,7,210,1229 

1710 DATA 169,0,133,225,76,159,69,169, 

1,133,225,166,228,224,10,144,707 

1720 DATA 221,292,292,134,228,142,6,21 

9,169,164,141,7,219,76,159,69,9288 

1738 DATA 169,9,141,7,219,166,199,224, 

252,176,23,224,251,248,14,232,5832 

1748 DATA 134,198,142,4,219,169,168,14 

1,5,219,76,188,69,169,8,141,7828 

1758 DATA 5,218,166,191,224,51,248,21, 

176,14,232,134,191,142,6,210,516 

1760 DATA 169,138,141,7,218,76,215,69, 

169,8,141,7,218,104,170,104,7775 

1770 DATA 64,162,0,168,9,217,133,78,24 

8,5,232,232,136,288,246,96,3988 

1788 DATA 173,18,218,41,6,281,9,288,2, 

9,2,96,166,176,282,189,7625 

1798 DATA 51,70,141,198,2,189,66,78,13 

3,183,189,82,78,133,182,189,9978 

1808 DATA 98,70,12,70,7,71,133,188,189 

,114,78,133,181,138,24,185,6718 

1818 DATA 33,141,226,58,32,11,81,96,22 

4,2,248,6,162,2,56,233,6846 

1829 DATA 200,96,162,0,24,105,209,96,1 

40,92,136,14,48,136,138,149,6298 

1838 DATA 216,218,228,184,196,198,248, 

259,252,72,74,76,4,4,4,5,3434 

1848 DATA 5,5,6,6,6,7,7,7,8,8,8,9,19,1 

2,14,16,3878 

1859 DATA 18,28,22,24,26,28,30,32,34,3 

6,38,9,38,36,34,32,5938 

1868 DATA 39,28,26,24,22,28,18,16,14,1 

2,18,9,42,49,38,35,5212 

1878 DATA 34,32,38,28,26,24,22,28,18,1 

6,14,8,42,57,157,142,9285 

1880 DATA 10,11,9,13,5,7,6,14,15,19,23 

7,21,235,71,72,73,1693 

1890 DATA 74,133,134,133,134,21,19,235 

,237,203,207,205,210,207,211,207,6999 

1900 DATA 211,283,297,203,207,206,216, 

203,207,60,201,252,51,169,194,141,5208 

1918 DATA 48,2,169,65,141,49,2,169,9,1 

79,157,0,6,202,208,258,8547 
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192B DftTfl 133, 2Bjl33, 19, 169, 1,133, 176, 

133,177,133,226,169,17,141,111,9226 

1938 DflTfl 2,169,56,141,7,212,169,3,141 

,29,208,169,62,141,47,2,4998 

1948 DOTfl 169,243,141,0,2,159,66,141,1 

,2,159,192,141,14,212,169,7737 

1958 DfiTfl 6,162,67,169,13,32,92,228,32 

,181,228,159,38,133,189,169,9448 

1958 DUTfl 9,141,8,71,3,72,8,219,141,1, 

219,169,288,141,8,219,8284 

1979 DflTO 169,22,141,16,2,169,69,141,1 

7,2,165,15,9,1,133,16,9867 

1989 DftTfl 141,14,219,159,2,133,228,162 

,4,189,174,79,149,187,282,288,2692 

1998 DftTfl 248,165,19,291,1,144,258,169 

,218,141,48,2,169,65,141,49,7339 

2088 DftTfl 2,169,9,179,157,9,6,157,8,59 

,157,8,69,157,8,61,1374 

2018 DflTft 157,9,52,157,9,53,292,288,23 

5,172,11,212,192,112,144,249,3145 

2028 DftTft 157,9,57,157,8,58,292,288,24 

7,159,8,141,5,219,133,186,9983 

2939 DftTfl 133,187,169,3,133,185,162,40 

,189,113,65,157,199,57,189,153,383 

2949 DflTft 65,157,199,58,292,298,241,16 

9,16,141,223,58,141,238,58,155,1923 

2859 DftTft 177,24,105,16,141,234,58,162 

,19,169,139,157,4,57,157,184,7798 

2969 DftTft 58,292,208,247,162,119,168,5 

,169,132,157,0,57,157,155,57,7577 

2979 DftTfl 138,56,233,19,178,169,131,15 

7,9,57,157,156,57,138,24,185,6814 

2080 DflTfl 39,179,136,298,227,169,5,162 

,4,169,133,157,8,57,157,115,7191 

2999 DflTfl 58,169,64,232,157,115,58,202 

,292,157,8,57,232,138,24,195,8163 

2199 DftTft 19,179,136,298,228,160,5,162 

,15,169,134,157,9,57,157,85,6826 

2110 DftTfl 58,169,54,232,157,9,57,292,2 

92,157,85,58,232,138,24,195,8433 

2120 DftTft 21,170,4,72,255,72,136,298,2 

28,162,131,142,198,57,232,142,1771 

2139 DftTft 99,58,169,9,162,15,157,255,6 

5,292,288,259,162,5,189,45,521 

2149 DftTfl 70,157,195,2,202,208,247,169 
,30,141,194,2,141,195,2,165,9527 

2150 DflTft 226,133,176,32,246,69,162,57 
,134,198,232,134,200,165,179,201,4689 
2160 DftTft 1,248,101,173,31,298,141,2,2 
98,141,3,298,201,6,249,77,9382 

2179 DflTfl 291,3,249,28,291,5,249,3,76, 

65,72,166,176,232,224,19,9122 

2188 DflTfl 144,2,162,1,134,176,134,226, 

134,77,32,245,69,76,135,72,7708 

2199 DflTfl 166,177,134,77,224,1,249,13, 

292,134,177,138,24,185,16,141,7369 

2289 DflTfl 234,58,76,135,72,232,76,119, 

72,165,29,24,185,9,162,8,3281 

2218 DflTfl 142,2,288,142,3,288,197,28,2 

48,169,76,142,72,165,226,133,1594 

2228 DflTfl 176,169,1,133,179,76,67,71,1 

69,8,133,179,133,184,169,19,7933 

2239 DflTfl 141,223,58,166,177,224,1,249 

,3,141,238,58,169,199,141,9,8274 

2249 DflTfl 6,169,139,141,2,6,224,1,249, 

6,141,3,6,169,156,141,6997 

2259 DftTfl 1,6,162,19,159,8,149,211,292 

,288,249,173,18,219,41,15,9983 

2268 DflTfl 24,195,3,133,213,165,176,291 

,7,144,29,162,1,134,186,169,8836 

2279 DflTfl 19,141,16,6,291,19,144,7,134 

,187,168,12,141,17,6,164,4528 

2289 DftTfl 183,32,8,73,251,73,91,76,136 

,288,258,169,6,169,16,153,8863 

2298 DflTft 282,58,153,212,58,153,156,65 

,153,165,65,136,208,241,165,176,3488 

2399 DftTft 133,225,173,31,288,291,6,298 

,3,76,155,72,291,7,176,3,6235 

2318 DftTfl 76,67,71,159,8,133,77,159,13 

0,141,186,58,165,224,281,45,436 

2328 DftTfl 144,3,32,49,88,32,212,88,173 

,252,2,281,255,240,3,76,9925 

2338 DflTft 124,81,165,185,74,176,65,173 

,129,2,32,219,69,224,8,249,9969 

2349 DftTft 52,173,132,2,281,1,249,45,16 

9,9,141,19,6,141,4,6,1593 

2359 DftTfl 172,8,6,185,9,59,41,252,153, 

9,59,173,9,6,105,3,1762 

2368 DftTfl 141,6,6,173,2,6,233,3,141,8, 

6,142,18,6,169,9,792 

2370 DflTfl 133,189,75,146,73,142,4,5,16 

5,177,291,2,208,71,165,185,9689 



2388 DflTft 74,74,176,65,173,121,2,32,21 

9,69,224,8,248,52,173,133,8947 

2398 DftTft 2,201,1,249,45,169,9,141,11, 

6,141,5,6,172,9,6,611 

2499 DftTft 185,8,59,41,243,153,9,59,173 

,1,6,105,3,141,7,6,638 

2419 DflTfl 173,3,6,233,3,141,9,6,142,11 

,6,155,3,133,189,76,3986 

2429 DflTfl 223,73,142,5,6,165,207,197,1 

80,176,3,76,87,74,159,9,6387 

2439 DflTfl 133,297,160,4,185,17,6,201,9 
,208,6,136,208,245,76,87,8698 

2440 DflTft 74,162,252,73,247,74,2,192,3 
,176,2,162,0,149,197,185,8869 

2459 DftTfl 159,79,129,197,134,195,173,1 

8,218,41,1,192,3,249,7,192,8237 

2459 DftTfl 1,249,3,24,105,2,24,195,1,13 

3,194,170,185,17,6,24,3221 

2478 DflTft 125,142,78,166,195,149,197,1 

61,197,217,159,79,248,19,166,194,3792 

2489 DflTft 224,1,240,9,224,3,248,5,282, 

138,76,31,74,232,76,61,7852 

2499 DflTfl 74,181,197,153,17,6,185,146, 

79,129,197,76,245,73,76,231,755 

2569 DftTfl 74,165,214,291,1,176,247,165 

,176,291,4,144,241,165,286,197,5511 

2518 DftTft 189,144,235,169,9,133,296,16 

5,213,291,9,249,2,198,213,172,3471 

2529 DflTft 22,6,174,24,6,148,197,169,13 

1,129,197,152,291,189,288,13,1742 

2538 DftTft 169,236,141,22,6,162,2,142,2 

4,6,76,156,74,281,88,298,7122 

2549 DftTft 5,162,9,142,24,6,173,22,6,24 

,195,29,141,22,6,149,1284 

2559 DflTfl 197,169,89,129,197,165,176,2 

81,7,144,163,172,23,6,174,25,7436 

2569 DftTfl 6,148,197,169,132,129,197,15 

2,291,19,298,13,162,9,142,25,7237 

2579 DftTfl 6,169,219,141,23,6,76,216,74 

,291,119,298,5,162,2,142,7662 

2588 DftTfl 25,6,173,23,6,56,233,28,141, 

23,6,149,197,169,98,129,7079 

2598 DflTfl 197,165,176,201,4,176,3,76,1 

25,75,165,213,291,9,240,3,8661 

2608 DflTfl 76,125,248,74,243,75,75,165, 

214,201,1,249,27,201,2,248,1338 

2618 DflTft 99,230,214,169,58,133,215,16 

9,288,141,5,218,169,163,141,4,835 

2628 DftTfl 219,169,252,133,199,76,125,7 

5,165,215,291,9,240,3,76,125,9485 

2638 DflTfl 75,169,30,133,215,230,214,16 

9,211,133,196,174,24,6,172,22,9771 

2648 DflTfl 6,209,148,197,152,159,18,165 

,196,129,197,246,197,136,208,249,7186 

2650 DftTfl 169,9,133,199,165,176,291,7, 

176,3,76,125,75,174,25,6,5154 

2669 DflTfl 172,23,6,136,148,197,169,18, 

165,196,129,197,214,197,136,298,4762 

2679 DflTfl 249,76,125,75,165,215,291,0, 

298,17,133,196,133,214,173,10,605 

2689 DflTfl 219,41,15,24,185,3,133,213,7 

6,45,75,165,176,291,7,176,8253 

2699 DflTft 3,76,218,75,169,9,185,12,6,2 

81,51,144,31,201,195,176,9316 

2799 DftTft 36,185,14,6,261,217,176,7,20 

1,79,144,34,76,297,75,32,6881 

2719 DftTft 234,59,201,6,298,39,24,185,1 
0,76,198,75,32,234,69,24,4975 

2720 DftTft 195,2,76,198,75,32,234,69,24 
,195,19,76,198,75,32,234,6742 

2739 DftTft 69,24,195,6,182,186,224,9,24 

8,3,153,15,6,165,176,201,9089 

2748 DftTft 13,144,5,299,192,1,249,174,1 

65,219,197,181,176,3,76,183,2305 

2750 DflTft 76,169,9,133,219,164,183,185 

,25,6,291,8,240,21,199,43,7984 

2769 DflTfl 6,149,244,75,239,76,197,161, 

197,201,1,249,16,169,9,153,119 

2779 DflTfl 25,6,153,43,6,198,184,136,29 

8,225,76,183,76,199,69,6,8955 

2789 DftTft 185,25,6,24,125,234,66,190,4 

3,6,291,299,144,3,32,39,5972 

2799 DftTfl 79,149,197,161,197,201,9,248 
,14,173,19,219,41,7,24,105,5661 

2800 DflTfl 1,153,69,6,76,5,76,181,197,1 
33,195,134,194,185,25,6,8167 

2810 DflTfl 199,43,6,149,197,169,0,129,1 

97,165,195,166,194,149,197,153,4302 

2829 DflTft 25,6,138,153,43,5,159,1,129, 

197,76,5,76,155,184,197,8562 

2839 DflTft 183,144,1,96,169,5,133,195,1 

85,25,6,201,9,249,1,96,6358 

continued on baire 52 
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Edit Magic y because 
it copies the OS from 
ROM to RAM and 
replaces part of the 
code, will only work 
on XL and XE Atari 
systems. 




Of all the differences between assembly 
language and higher-level languages, the one 
that has given me the biggest headaches is 
the considerable amount of instructions in an 
average MAC/65 program listing. Even a 
simple assembly-language program can often 
exceed several hundred lines in length. And 
when editing, it can be a tedious activity to 
LIST through this code over and over again 
correcting mistakes. 

So to make editing chores somewhat easi- 
er, I decided to improve the screen-editor rou- 
tines in the operating system, interfacing the 
code with many additional features. The 
result. Edit Magic, should hopefully prove to 
be a boon to all BASIC and MAC/65 
programmers. 



Getting started 



I'm afraid Edit Magic, because it copies the 
operating system (OS) from ROM to RAM 
and replaces part of the code, will only work 
on XL and XE Atari systems. (If you have 
a 400/800 or 1200 model, now's a good time 
to purchase a newer Atari computer!) But if 
you have an XL/XE, type in the data state- 
ments from Listing 1 using M/L Editor. Refer 
to the instructions to M/L Editor, and create 
a binary file called EDTMAGIC.OBJ. Re- 
name as AUTORUN.SYS if you'd like the 
program loaded automatically at power-up. 

Also, take a look at Listing 2, the MAC/65 
source code. If you have the assembler, you 
may want to type in Listing 2 instead. I tried 
to make the program fairly modifiable so that 
you can later mold the utilities to fit your 
programming needs. 

Edit Magic information line 

Okay, you've loaded Edit Magic into 



memory (refer to your DOS manual for in- 
structions on loading a binary file). Go im- 
mediately to BASIC (or to MAC/65— the 
instructions to follow are appropriate for the 
assembler as well). Notice the 25th line add- 
ed to the top of your screen. This line is 
divided, from left to right, into four parts: 
the List Box, Message Box, File Box and 
Save Counter. You should also see a "V" 
prompt in the List Box, informing you that 
Edit Magic is now examining your keyboard 
input. 

Loading and saving 

Let's begin by loading a BASIC program 
from disk. Whenever Edit Magic sees you've 
entered a LOAD command, it will search the 
syntax for the filename and place it in the File 
Box. Now you won't forget the name of the 
resident BASIC (or MAC/65) program. 

Try saving your program. Edit Magic, 
upon discovering an inputted SAVE, incre- 
ments the Save Counter and puts that num- 
ber (0-9) in inverse. After saving, try 
changing any line in your program. The num- 
ber in the Save Counter box becomes non- 
inverse again whenever a line is modified. 
So before you ever NEW memory or abort 
to DOS, check the Save Counter to make sure 
your program has been recently saved to disk 
or cassette. 



Listing features 



With your BASIC program in memory, 
type LIST and hit Return. I added my Fast 
Print routine (see Issue 61) to speed up screen 
output and to add a screen pause feature: Ev- 
ery 21 lines of output the speaker clicks, a 
"press a key" message is put in the Message 
Box, and Edit Magic waits for a keypress or 
Break. To prevent a pause, press C for con- 
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rtRTl or S-ESC = Edit LIST B 
LECT3 or c-ESC = List It's in 
TI0M3 or s-c-ESC = Toggle EH Cn/, 

-R = Recalls last line enter© *^ 
-BS r Deletes succeeding Ha ch 
-IMSERT = Inserts^ai lines , 
:lear = Cursor iwst be on ift mI 

Continuous output Ct#hen listin 
_„ CHELPJ = Prints this 1 



tinuous output anytime after typing LIST. Or 
a POKE 847,0 will remove it for good (for 
good until a value of one or greater is stored 
in this location to re-enable the automatic 
pause). 

Faster listings are nice, but must we still 
type LIST (plus a line number range) every 
time? Not with Edit Magic! Press either Start 
or, if you prefer, Shift-Escape (press Escape 
while holding down the Shift key). You 
should find the cursor now located in the List 
Box next to the "V" prompt. This is where 
you enter a range of line numbers, using the 
standard LIST syntax: an optional first line, 
comma, then last line. Except, if you do not 
specify a last line and end with a comma, 
your program will list up to Line 32767. So 
to list from Line 100 to the end of your pro- 
gram, just enter "100," and then hit Return. 
If you make a mistake, press the Back Space 
key to erase a character, or hit Escape or 
Break to exit the box. No other keys are al- 
lowed while editing the List Box. 

For now, just press Return from the List 
Box to list all lines. The screen will clear and 
display the lines. When the screen pauses, hit 
Break and move the cursor up to any line and 
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change it. Now press Select or Control- 
Escape, and the same set of lines defined in 
the List Box is printed. But also notice the 
line you changed is marked with an inverse 
right arrow on the left margin. This is to re- 
mind you which lines have been edited since 
last listing from the List Box. Up to 24 line 
numbers will be remembered for marking. 

Macros 

There are currently four macros defined 
within Edit Magic (though with just a little 
work, you can add your own): 

Help: Shows you all keys Edit Magic uses. 

Shift-Control-R: Recalls last line you've 
entered. 

Shift-Control-Backspace: Deletes 40 char- 
acters on the same logical line after the 
cursor. 

Shift-Control-Insert: Opens space on the 
screen by inserting ten blank lines. 

A table of macro entries begins at location 
$C600 (50688 decimal). Each entry consists 
of three bytes: the internal keypress value and 
the two-byte address of the string to be print- 
ed whenever this key is pressed while Edit 
Magic is active. The last entry must have a 



keypress value of 255. Character strings must 
end with a zero value (not printed). Feel free 
to create your own macros using your friendly 
POKE statement and binary, saving your 
results (see your DOS manual again for help). 
Assembly-language programmers will find it 
much easier to make additions directly to the 
MAC/65 source code. 

Turning off Edit Magic 

Option or Shift-Control-Escape (all three 
keys pressed simultaneously) will toggle all 
die Edit Magic features on and off. Since Edit 
Magic is buried in the operating system, not 
only does it not take up any of your usable 
RAM, but it also shouldn't interfere with any 
program if kept off. If you do have problems, 
you can always re-enable the OS ROM by 
simply pressing Reset. And if you'd like to 
enable Edit Magic again, from BASIC just 
POKE 54017,252. It's that easy. 



Notes and stuff 



Yes, there's still more features to note! 

Pressing Control-1 does nothing while 
you're entering a line of text. (Why would you 
want to pause during screen input?) 

Pressing Shift-V (the clear key), except 
when the cursor is at the beginning of a line, 
does nothing. This is to prevent your screen 
from clearing accidentally when you meant 
to type ")" or "V." (It happens to me a lot!) 

Faster key response, brighter characters 
and a lighter border color are a few minor 
changes— you've probably noticed them by 
now. 

I've only mentioned the MAC/65 Assem- 
bler in this article because that's the one I use 
and prefer (I have the disk version, incident- 
ly). Will Edit Magic work with other Atari 
assemblers? Probably. In fact. Edit Magic 
should have compatibility— though possibly 
limited— with any language or program that 
accepts a LIST, LOAD and SAVE 
command — and does not ever use the added 
RAM from $C000 to $FFFF Because of the 
latter restriction, BASIC XE and XL versions 
of Sparta DOS will not run properly with Edit 
Magic loaded. 

That's all the stuff you need to worry about. 
Take plenty of time getting used to Edit Mag- 
ic. I'm sure you'll soon agree with me that 
it makes editing a program an almost bear- 
able task! 

sa 
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19B0 DflTfl 255, 255^8,5,157, 5, 17J|247, 25 

5, 291,2,249,3,76, 141,5,6342 

1919 DflTft 173,1,211,170,41,254,295,1,2 

11,240,242,133,212,163,8,133,1477 

1929 DftTfl 214,165,192,133,215,173,47,2 
,72,159,0,141,14,212,141,47,5185 

1930 DATA 2,141,8,212,120,160,8,142,1, 
211,177,214,206,1,211,145,9659 

1048 DATA 214,200,208,243,230,215,240, 

13,165,215,201,208,298,233,169,216,777 

3 

1058 DATA 133,215,76,49,5,88,169,64,14 

1,14,212,104,141,47,2,165,4435 

1069 DATA 212,141,1,211,162,0,169,142, 

157,58,3,169,5,157,69,3,3038 

1970 DATA 157,73,3,169,9,157,66,3,32,8 

5,228,173,4,228,141,147,6974 

1988 DATA 194,173,5,228,141,148,194,17 

3,6,228,141,149,194,173,7,228,1252 

1899 DATA 141,158,194,96,73,110,115,11 

6,97,198,198,105,118,183,32,197,6168 

1168 DATA 228,233,244,188,285,225,231, 

233,227,32,45,46,46,155,226,2,8633 

1119 DATA 227,2,8,5,224,2,225,2,0,5,0, 
5,37,5,173,68,8428 

1120 DATA 2,208,1,96,162,255,154,159,1 
,133,9,32,57,231,169,0,5827 

1130 DATA 141,68,2,165,6,248,18,173,25 

3,191,41,4,249,3,108,250,8465 

1148 DATA 191,108,10,0,144,194,144,194 

,1,151,194,183,194,10,0,0,4532 

1150 DATA 0,8,0,0,0,0,0,76,79,55,68,32 

,83,65,86,69,8634 

1168 DATA 32,76,73,83,84,32,51,50,55,5 

4,55,253,242,0,175,195,6831 

1179 DATA 114,197,6,115,294,5,250,294, 
3,93,205,7,92,115,204,156,8246 

1180 DATA 250,284,220,93,205,118,132,2 
05,255,125,32,32,32,32,32,32,3304 
1190 DATA 32,32,197,228,233,244,168,26 
5,225,231,233,227,160,160,203,197,8317 
1200 DATA 217,211,186,155,32,32,32,32, 
32,32,32,40,115,61,115,104,1827 

1219 DATA 185,102,116,44,99,61,99,111, 
118,116,114,111,108,41,155,155,6004 

1220 DATA 91,83,84,65,82,84,93,32,32,1 
11,114,32,115,45,69,83,1334 

1230 DATA 67,32,32,32,61,32,69,100,185 

,116,32,76,73,83,84,32,617 

1249 DATA 65,79,88,155,91,83,69,76,69, 

67,84,93,32,111,114,32,1915 

1259 DATA 99,45,69,83,67,32,32,32,61,3 

2,76,195,115,116,32,35,189 

1268 DATA 39,115,32,105,110,32,66,79,8 

8,155,91,79,88,84,73,79,2747 

1278 DATA 78,93,32,111,114,32,115,45,9 

9,45,69,83,67,32,61,32,9843 

1280 DATA 84,111,183,103,188,181,32,69 

,77,32,111,118,47,111,182,182,3118 

1290 DATA 155,115,45,99,45,82,32,32,51 

,32,82,181,99,97,188,108,2379 

1399 DATA 115,32,198,97,115,116,32,198 

,195,119,181,32,181,118,116,101,4299 

1310 DATA 114,101,100,155,115,45,99,45 

,66,83,32,61,32,68,181,108,1553 

1320 DATA 101,115,101,115,32,115,117,9 

9,99,101,101,188,105,110,103,32,4051 

1330 DATA 180,176,32,99,184,97,114,115 

,155,115,45,99,45,73,78,83,3507 

1340 DATA 69,82,84,32,61,32,73,118,115 

,101,114,116,115,32,177,176,5946 

1356 DATA 32,108,185,110,101,115,155,1 

15,45,57,76,69,65,82,32,51,1741 

1359 DATA 32,67,117,114,115,111,114,32 

,109,117,115,116,32,98,191,32,3251 

1379 DATA 111,118,32,198,182,116,32,19 

9,97,114,183,185,116,155,67,32,4954 

1389 DATA 61,32,57,111,119,116,165,119 

,117,111,117,115,32,111,117,116,5422 

1398 DATA 112,117,116,32,40,119,164,10 

1,119,32,108,185,115,115,185,110,4874 

1499 DATA 103,41,155,155,32,32,32,32,3 

2,32,91,72,69,76,89,93,624 

1418 DATA 32,61,32,32,88,114,195,119,1 

16,115,32,116,194,195,115,155,5452 

1429 DATA 155,8,254,254,254,254,254,25 

4,254,254,254,254,254,254,254,254,5357 

1439 DATA 254,254,254,254,254,254,254, 

254,254,254,254,254,254,254,254,254,59 

1448 DATA 254,254,254,254,254,254,254, 
254,254,254,0,157,157,157,157,157,6498 
1458 DATA 157,157,157,157,157,8,144,19 
7,150,197,112,80,66,179,197,16,8476 



1468 DATA 66,153,197,240,197,2,2,2,2,2 

,2,2,2,2,2,2,4619 

1478 DATA 2,2,2,2,2,2,2,2,2,2,2,2,65,1 

44,197,8,7442 

1488 DATA 0,8,0,0,0,0,8,8,8,8,8,0,252, 

165,228,233,4214 

1498 DATA 244,128,128,173,225,231,233, 

227,252,0,0,0,8,0,0,0,1292 

1500 DATA 8,8,8,8,8,252,16,165,228,233 

,244,128,128,173,225,231,4283 

1510 DATA 233,227,240,242,229,243,243, 

128,225,128,235,229,249,8,198,9,4282 

1520 DATA 198,244,63,197,247,184,197,2 

32,183,194,255,96,202,190,287,169,6916 

1538 DATA 38,141,179,197,152,8,32,167, 

207,173,152,194,24,105,15,44,5856 

1540 DATA 153,194,248,2,9,128,141,218, 

197,173,144,194,248,47,169,0,81 

1550 DATA 141,154,194,169,32,141,217,2 

,169,4,141,218,2,173,138,194,9148 

1560 DATA 281,76,240,25,169,8,141,14,2 

12,169,76,141,138,194,169,213,1256 

1570 DATA 141,139,194,169,286,141,140, 

194,169,64,141,14,212,166,46,32,7817 

1580 DATA 44,207,132,35,192,128,175,4, 

281,155,240,1,96,162,8,129,7157 

1598 DATA 35,173,144,194,248,121,173,1 

28,5,281,155,246,114,162,255,232,5268 

1688 DATA 48,189,189,128,5,157,183,194 

,201,155,208,243,169,0,157,183,2788 

1610 DATA 194,162,255,232,48,89,189,12 

8,5,281,155,240,82,201,32,240,1782 

1620 DATA 242,201,48,248,238,134,242,1 

89, 128, 5, 281, 49, 144, 68, 281, 58 , 9336 

1630 DATA 176,64,169,0,141,153,194,173 

,155,194,133,224,201,24,176,47,633 

1640 DATA 169,55,162,195,198,224,48,13 

,32,53,207,48,34,24,185,5,2863 

1650 DATA 144,242,232,208,239,133,212, 

134,213,166,242,168,255,288,192,5,5589 

1658 DATA 248,18,189,128,5,145,212,232 

,281,32,288,241,238,155,194,76,3933 

1678 DATA 165,203,169,161,162,194,32,5 

3,287,192,4,144,56,232,189,128,428 

1680 DATA 5,48,81,281,58,288,246,169,0 

,141,152,194,141,153,194,141,1991 

1698 DATA 155,194,158,0,153,205,197,20 

0,192,12,208,248,168,8,232,189,3383 

1780 DATA 128,5,48,48,201,34,240,44,32 

,97,287,153,295,197,299,192,2281 

1718 DATA 12,208,235,240,31,169,166,16 

2,194,32,53,287,192,4,144,28,7595 

1728 DATA 169,255,141,153,194,238,152, 

194,173,152,194,281,18,144,5,169,996 

1730 DATA 8,141,152,194,169,8,141,179, 

197,162,0,134,242,169,155,164,1970 

1740 DATA 35,96,159,0,141,156,194,141, 

220,2,169,0,141,255,2,173,8661 

1758 DATA 252,2,281,255,288,96,166,17, 

240,24,173,220,2,201,17,240,421 

1768 DATA 78,173,31,288,41,7,281,7,288 

,23,169,8,141,160,194,76,6971 

1770 DATA 187,283,108,181,194,184,184, 

169,155,32,156,207,160,128,132,17,9124 

1788 DATA 96,158,253,299,288,288,198,1 

75,195,224,7,248,189,217,175,195,6877 

1798 DATA 208,241,173,168,194,208,179, 

238,160,194,185,176,195,133,212,185,78 

78 

1888 DATA 177,195,133,213,188,212,8,17 

3,144,194,248,150,169,198,162,195,5089 

1810 DATA 32,125,287,76,238,283,172,14 

4,194,248,36,168,253,288,289,200,6492 

1820 DATA 48,29,190,0,198,224,255,248, 

22,217,8,198,288,239,162,255,5839 

1838 DATA 142,252,2,185,1,198,198,2,19 

8,32,125,287,76,187,203,160,933 

1848 DATA 253,288,288,288,190,185,195, 

224,255,248,135,217,185,195,208,241,5 

1858 DATA 162,255,142,252,2,185,186,19 

5,133,212,185,187,195,133,213,188,4854 

1860 DATA 212,8,173,144,194,288,3,76,1 

87,283,162,11,169,8,157,188,9873 

1878 DATA 197,202,16,250,162,0,165,93, 

129,94,159,128,141,188,197,169,1735 

1880 DATA 0,141,159,194,32,182,207,192 

,0,48,83,141,157,194,281,44,9213 

1898 DATA 248,8,281,48,144,25,281,58,1 

76,21,174,159,194,224,11,144,9425 

1908 DATA 3,76,149,284,32,97,287,157,1 

88,197,238,159,194,288,17,201,3786 

1918 DATA 126,288,13,174,159,194,248,8 

,159,0,157,188,197,286,159,194,3232 

1928 DATA 174,159,194,159,128,157,180, 

197,173,157,194,201,155,288,8,169,3512 

1938 DATA 0,157,188,197,76,258,284,201 

JANUARY A.N.A.L.a.Q. Computing 



J 27, 248, J, 76, 149, 284, 174, 159, 2023 

1948 DflTfl 194,169,8,157,188,197,76,238 

,283,173,144,194,288,3,76,187,1981 

1958 DflTfl 283,162,5,189,178,194,157,12 

7,5,282,288,247,236,159,194,248,6738 

1968 DflTfl 12,189,188,197,24,185,32,157 

,133,5,232,288,239,281,44,288,2112 

1978 DftTfl 14,168,8,185,176,194,157,133 

,5,232,288,192,5,288,244,138,2965 

1988 DflTfl 24,185,133,133,36,169,5,133, 

37,169,8,141,162,2,141,255,7482 

1998 DftTfl 2,169,125,32,156,287,173,155 

,194,141,154,194,169,8,141,155,1276 

2888 DATA 194,184,184,184,184,168,1,13 

2,35,76,165,283,169,1,77,144,6659 

2818 DftTfl 194,141,144,194,248,3,76,187 

,283,173,145,194,141,48,2,173,9723 

2828 DflTfl 146,194,141,49,2,173,151,194 

,141,197,2,169,8,141,288,2,7125 

2838 DflTfl 76,187,283,173,144,194,248,6 

,165,99,197,82,288,8,169,118,258 

2848 DflTfl 141,252,2,76,227,283,76,187, 

283,141,157,194,172,144,194,248,5678 

2858 DATA 4,164,87,248,3,76,156,287,16 

4,17,288,3,76,142,286,172,9618 

2868 DATA 255,2,288,244,166,82,248,113 

,228,99,144,189,174,154,194,248,4927 

2878 DATA 184,281,48,144,188,281,58,17 

6,96,168,255,288,177,243,281,48,3971 

2888 DATA 248,249,169,55,133,224,169,1 

95,133,225,152,24,181,243,133,226,4838 

2898 DATA 165,244,185,8,133,227,173,15 

4,194,133,228,168,8,198,228,48,1992 

2188 DATA 56,177,226,178,41,127,289,22 

4,288,31,281,32,248,14,288,192,2255 

2118 DATA 5,248,9,138,16,235,177,224,2 

81,32,288,13,198,95,168,255,2652 

2128 DATA 169,223,145,94,238,95,76,42, 

286,24,169,5,181,224,133,224,175 

2138 DATA 165,225,185,8,133,225,76,236 

,285,173,157,194,172,79,3,248,2352 

2148 DATA 111,172,9,218,192,18,288,38, 

168,255,148,252,2,76,161,286,1581 

215B DATA 281,125,288,18,168,8,284,254 

,2,288,11,284,162,2,288,6,7574 

2168 DATA 148,156; 194, 76,166,285,281,1 

55,248,6,166,85,213,83,144,64,581 

2178 DATA 238,156,194,32,156,287,174,1 

56,194,224,21,144,58,168,8,148,8993 

2188 DATA 156,194,148,31,288,162,11,32 

,167,287,169,255,141,252,2,285,2776 

2198 DATA 252,2,288,14,166,17,288,247, 

162,8,32,167,287,158,128,132,267 

2288 DATA 17,96,141,252,2,168,8,148,25 

5,2,162,8,32,167,287,96,7422 

2218 DATA 166,85,228,83,176,16,178,41, 

127,281,125,176,8,281,32,176,8918 

2228 DATA 8,281,27,144,4,138,76,156,28 

7,138,32,97,287,168,8,145,7925 

2238 DATA 94,238,85,238,99,238,94,288, 

2,238,95,177,94,133,93,73,9298 

2248 DATA 128,145,94,96,173,144,194,24 

8,76,173,49,2,281,197,248,44,983 

2258 DATA 141,146,194,173,48,2,141,145 

,194,165,88,141,151,197,165,89,1832 

2268 DATA 141,152,197,169,144,141,48,2 

,169,197,141,49,2,169,1,141,6183 

2278 DATA 79,3,173,197,2,281,12,248,3, 

141,151,194,169,12,141,197,9948 

2288 DATA 2,141,23,288,169,2,141,288,2 

,173,6,228,141,78,3,173,7885 

2298 DATA 7,228,141,71,3,184,168,184,1 

78,184,64,173,148,194,72,173,9945 

2388 DATA 147,194,72,96,133,212,134,21 

3,166,242,168,255,288,192,5,248,5951 

2318 DATA 21,189,128,5,41,127,281,96,1 

44,3,56,233,32,289,212,288,843 

2328 DATA 8,232,281,32,288,238,168,128 

,96,165,212,166,213,192,8,96,1918 

2338 DATA 142,158,194,72,41,127,178,18 

4,224,96,176,12,224,32,176,5,7783 

2348 DATA 24,185,64,144,3,56,233,32,17 

4,158,194,96,133,212,134,213,2127 

2358 DATA 168,8,148,158,194,177,212,24 

6,17,32,156,287,192,8,48,18,7847 

2368 DATA 172,158,194,288,288,236,238, 

213,288,232,96,168,173,158,194,72,5675 

2378 DATA 173,149,194,72,152,96,168,8, 

189,219,197,153,193,197,232,288,6898 

2388 DATA 192,11,288,244,96,173,37,228 

,72,173,36,228,72,95,4,228,9293 

2398 DATA 7, 228, 95, 282, 153, 285-, 93,242, 

94,242,179,283,8,8,8,8,6199 



>1 

ffl 


eiee 

8118 
8128 


,OPT NO LIST 


* Edit Magic » 


lU 


8138 


* Version 2,8 # 


8148 


» By Bill Bodenstein * 


8158 


* For KL/XE systews only * 


< 


8168 
8178 
8188 


* 1/23/87 * 






8198 


jThis prograM will provide 


cvi 


8288 


;nany siMple utilities to 




8218 


;Hake editing BASIC and MAC/65 


C3 


8228 


;listings easier and faster. 




8238 




^Z 


8248 




t- 


8258 


*** EQUATES *** 


0) 


8268 




J 


8278 


INITCODE : $8588 


8288 


MAINCGDE = $CA68 




8298 


DI5PLIST = $C598 




8388 


MACLIST - $C6B8 




8318 


MI5C = $C298 




8328 


KITUBCODE z SC28A 




8338 


i 




8348 


INITADR = $82E2 




8358 


RUNADR = $02E0 




8368 


J 




8378 


LMARGIM - $52 




8388 


RMARGIN = $53 




0398 


COLCRS : $55 




0488 


LOGCOL = $63 




8418 


OLDADR z $5E 




8428 


OLDCHR = $5D 




8438 


SAUMSC : $58 




8448 


DINDEK : $57 




8458 


I 




0468 


BRKKEY = $11 




0478 


CH : $82FC 




0488 


KBCODE = $D2B9 




8498 


HELPFG = $82DC 




8588 


KRPDEL = $B2D9 




851B 


KEYREP = $B2DA 




8520 


C0N50L : $DBiF 




8538 


E5CFLG = $B2A2 




8548 


D5PFLG = $02FE 




8558 


55FLAG = $B2FF 




8560 


1 




0578 


CIK = $F2 




8588 


IN8UFF : $F3 




0598 


TEKTBUFF = $8588 




8608 


ICSTAZ = $23 




0618 


ICBALZ = $24 




0620 


ICIDNO : $2E 




0638 


ICPTL = $8346 




0648 


ICCOM : $8342 




8658 


ICBAL = $8344 




8668 


ICBLL = $8348 




8678 


PAUSEFLG = $e34F 




8688 


CIO = $£456 




8698 


/ 




8780 


SDMCTL : $822F 




8710 


DMACTL = $D4eB 




8728 


5DL5TL = $0238 




8738 


NMIEN : $D40E 




8748 


PORTS :: $D301 




8750 


COLORl = $B2C5 




8768 


C0L0R4 = $B2C8 




8778 


COLPFl : $D817 




8788 


t 




8798 


TRAMSZ : $86 




8888 


DOSUEC = $8A 




8818 


COLDST = $8244 




0828 


J 




8838 


EHANDTAB = $E488 




0848 


KHANDTAB = $E420 




0858 


J 




0868 


PUTREC : 9 




0878 


SPACE = 32 




8888 


ESC = 27 




0898 


CLEAR z 125 




8988 


DELETE z 126 




8910 


RETURN = 155 




8920 


BREAK z 128 




8930 


NOKEY : 255 




8948 


J 




8958 


i 




0968 


*z INITCODE 




0978 


i 




8988 


«*» INITIALIZATION *** 




0998 


1 —————— 




1888 


; Copy o.s. froM ROM to RAM and 




1818 


jdisable ROM to allow rest of 




1828 


;Edit Magic code to load there. 




1838 


i 



JANUARY A.IM.A.L.a.Q. CompuCing 



41 





1848 


IMIT 


1858 


J 


1868 


LDfl SFFF7 ;ls o.s. froH 


1878 


CMP «2 ;KL/KE Machine? 


1888 


BEQ DISftBLED? jBr if yep 


1898 


GOEXIT 


1188 


JMP EKIT ;Else do nothing 


1118 


f 


1128 


DISABLED? 


1138 


LDA PORTB JIS OS ROH/RAH? 


1148 


TAX ;Sa«e RON status 


1158 


AND tt255-l ;Make disabled 


1168 


CMP PORTB ;ls it already? 


1178 


BEQ GOEXIT ;Br if yup 


1188 


STA $D4 ;save new status 


1198 


; 


1288 


LDA tt <$C888 jstart copying 


1218 


STA SD6 jo.s. froH 


1228 


LDA » >$C888 J$C888 to $ffff 


1238 


STA SD7 


1248 


i 


1258 


LDA SDMCTL J Save DMA Status 


1268 


PHA 


1278 


LDA »8 i Disable HMI 


1288 


STA NMIEN ;S0 no UBI While 


1298 


STA SDMCTL JMOWing O.S. 


1388 


STA DMACTL jTurn screen off 


1318 


SEI ;N0 IRQ 


1328 


J 


1338 


LDV tt8 


1348 


C0PV0.5. 


1358 


STH PORTB jEnable ROM 


1368 


LDA c$D6l,Y ;Get a byte 


1378 


DEC PORTB JEnable RAH 


1388 


STA CSD63,Y ;Put O.S. there 


1398 


INY 


1488 


BNE COPVO.S. ;And Hove More 


1418 


i 


1428 


INC $D7 jNext page 


1438 


BEQ NMION J Done if $8888 


1448 


LDA $D7 jSkip over 


1458 


CMP tS$D8 ; hardware chips 


1468 


BNE COPVO.S. 


1478 


LDA tt$D8 ;Set next page 


1488 


STA $D7 ;tO SD888 


1498 


JMP COPVO.S. ;and loop back 


1588 


t 


1518 


NMION 


1528 


CLI jRe-enable IRQ 


1538 


LDA »64 jand non-Mskable 


1548 


STA NMIEN J interrupts 


1558 


PLA J And turn scr 


1568 


STA SDMCTL ;back on 


1S7B 


t 


1588 


LDA $D4 J Make ROM 


1598 


STA PORTB Jdisabled 


1688 


i 


1618 


jLet user know what's going on 


1628 


J with a short Message. 


1638 


i 


1648 


LDX tt$88 ;Use scr editor 


1658 


LDA tt <INITMSG 


1668 


STA ICBAL.X jPoint to our 


1678 


LDA tt >INITMSG jMessage 


1688 


STA ICBAL+1,K 


1698 


STA ICBLL+1,X jMhatever len 


1788 


LDA ttPUTREC jPrint record 


1718 


STA ICCOM.X 


1728 


JSR CIO jcio prints it 


1738 




1748 


jSawe editor handler's vectors 


1758 


J for GET and PUT operations so 


1768 


;Edit Magic can call then later. 


1778 




1788 


LDA EGET ;Get vector 


1798 


STA SAVEGETU 


1888 


LDA EGET+1 


1818 


STA SAUEGETU+1 


1828 


LDA EPUT jput vector 


1838 


STA SAUEPUTU 


1848 


LDA EPUT+1 


1858 


STA SAUEPUTU+1 


1868 


t 


1878 


EXIT RTS JLet DOS load 


1888 


1 


1898 


INITMSG .BVTE "Installing BIHaKE 


cm ■ 


..",155 


1988 


t 


1918 


*: INITADR 


1928 


.HORD INIT 


1938 


i 


1948 


1 


1958 


*z MAINCODE 


1968 


J 


1978 


«** MAIN CODE *Wt 


1988 


1 . -..-... 



1998 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 
2288 
2218 
2228 
2238 
2248 
2258 
2268 
2278 
2288 
2298 
2388 
2318 
2328 
2338 
2348 
2358 
2368 
2378 
2388 
2398 
2488 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2580 
25le 
2528 
2538 
2548 
2558 
2568 
2578 
2588 
2598 
2688 
2618 
2628 
2638 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
2738 
2748 
2758 
2768 
2778 
2788 
2798 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2988 
291B 
2928 
2938 
2948 



Edit Magic Wi 
over unused o.s 
CIntrn'l charse 
and self-test 
There are four 
1) FroM GET ope 
21 Prior to eve 

3) FroM PUT ope 

4) At the end o 



11 be stored 

code. 
t.warMstart, 
screen data.) 
entry points: 
rations 
ry keypress 
rations 
f every UBI 



GET editor entry: 



Handle features before and 
after getting a line of text 
froM the screen editor. 

GETENTRV 

LDA tt'>-32 J">" in liStbOX 
STA LISTBOX jsays active 

LDX tt <[MSG1-MSGS] 

JSR PUTMSG jDisplay title 



LDA 
CLC 
ADC 
BIT 
BEQ 
DRA 
PUTCNT 
STA 

LDA 
BEQ 



SAUECNT jGet tt tiMes 

J file SAUEd 
ttl6 jconv to intrnal 
SAUEDFLG jif recently 
PUTCNT J saved, 
ttizs J inverse tt 

BAKUPCNT jPut tt on scr 



EMFLG 
GOGET 



jls Edit Magic 
J on? 



LDA 

STA 

LDA 
STA 
LDA 
STA 

LDA 
CMP 
BEQ 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 



tt8 jciear inno cntr 
STCKCNT J for later use 

tt32 J Shorter key 

KRPDEL jrepeat delay 

tt4 jand delay 

KEVREP J between repeats 

XITUBCODE J Has our jMp 

tt76 J been set yet? 
GOGET jBr if yes 
tt8 J Prevent UBI 
NMIEN 

tt7B J JMP op-code 
XITUBCODE J Put jMp to 
tt <XITUBI J our Ubi exit 
xlTUBCODE+1 jroutine 
tt >xiTVBi J in place of 
XITUBCODE+2 jsysteM's 
tt64 jAUow UBI again 
NMIEN 



GOGET 

LDX ICIDNO JGet iocb index 

JSR EGETCHAR JLet OS do work 

STV IC5TAZ J Save Status 



CPy ttBREAK 
BCS GOCIO 
CMP ttRETURN 
BEQ PUTEOL 
GOCIO RTS 



jEXit if <brk> 

J pressed 

J or not <ret> 

JLet CIO finish 



PUTEOL 

LDX tt8 J Put EOL at 

STA (ICBALZ,X] jend Of line 

LDA EMFLG jSkip features 

BEQ RETCI02 Jif E.M. Off 



A line of text is in the text 
buffer. Save line and see if 
it has a LOAD or SAVE COMMand, 
or a line nuMber. 

LDA TEXTBUFF Jif blank line 

CMP ttRETURN 

BEQ RETCIOZ J dO nothing 



LDX tt255 jsave inputted 
SAUCHR J line of text 
INX 

BMI RETCI02 jEMergency exit 

LDA TEXTBUFF, X jMove line 

STA 5AUTBUFF,X jto Storage 

CMP ttRETURN J until eol 

BNE SAUCHR 

JANUARY A.IM.A.L.O.Q. Computing 



2958 
2960 


LDfl 


tt8 ;For Macro: a 


2978 


STfl 


SAUTBUFF^K jzero ends 


2988 


1 




2998 


LDK 


tt255 


3B88 


SKIPLEADING 


3818 


INK 




3828 


BHI 


RETCI02 


3B3B 


LDA 


TEHTBUFF.K jSkip over 


3B4B 


CMP 


ttRETURN juntil eol 


3858 


BEQ 


RETCIOZ 


3868 


CMP 


ttSPACE Heading blanks 


3B7B 


BEQ 


SKIPLEADING 


3B8B 


CMP 


»<8 ;and leading 8's 


3698 


BEQ 


SKIPLEADING 


3188 


J 




3118 


5TK 


CIK ;Saue index 


3128 


; 




3138 


LNNO? 


- 


3148 


LDA 


TEKTBUFF,K 


3158 


CMP 


tt'l jls line begun 


3168 


BCC 


LOAD? jby linenuH? 


3178 


CMP 


tt'9+l 


3188 


BCS 


LOAD? 


3198 


J 




3288 


LDA 


tte ;ReMind user 


3218 


5TA 


SAUEDFLG jprograM has 


3228 


J 


been Modified 


3238 


LDA 


LNNOCNT ;Save linenuH in 


3248 


5TA 


$E8 ;stack if rooN 


3ZS8 


CMP 


tt24 jOnly sau 24 tt's 


3268 


BCS 


RETCI02 


3278 


I 




3288 


LDA 


tt <LNNOSTACK jls nUH in 


3298 


LDK 


tt >LNNDSTACK JStack? 


3388 


LOOKSTACK 


3318 


DEC 


$E8 ;Look thru stack 


3328 


BMI 


PUTINSTACK ;Br When done 


3338 


JSR 


CHPTEKT ;CoHpare nuMS 


3348 


BMI 


RETCI02 ;Exit if « there 


3358 


i 




3368 


CLC 


jEach inno in 


3378 


ADC 


tts ;stack is 5 chrs 


338B 


BCC 


LOOKSTACK JLOOP back 


3398 


INK 




3488 


BNE 


LOOKSTACK 


3418 


1 




3428 


PUTIN5TACK 


343B 


5TA 


$D4 jsave addr of 


3448 


5TK 


$D5 jopen spot 


3458 


LDK 


CIK jindex 1st char 


3468 


LDV 


S255 


3470 


MOUCHRl 




3488 


INY 




3498 


CPV 


tt5 ;Linit of 5 Chrs 


3588 


BEQ 


INCSTCK jBr When done 


3518 


LDA 


TEKTBUFF.K 


3528 


5TA 


C$D4],y 


3538 


INK 




3548 


CMP 


ttSPACE jMowe 'til blank 


3558 


BNE 


MOUCHRl 


3568 


INC5TCK 




3578 


INC 


LNNOCNT ;lnc Stack size 


3588 
3598 


RETCI02 




3688 


JMP 


RETCIO jEXit to CIO 


3618 


1 




3628 


i 




3638 


LOAD? 




3648 


LDA 


« <LOAD jCOHpare first 5 


3658 


LDK 


tt >LOflD J chrs to "LOAD " 


3668 


JSR 


CMPTEKT 


3678 


CPV 


n4 jMatCh if "LOAD" 


3688 


BCC 


SAVE? jBr if not Match 


3698 


i 




3788 


FINDCOLON 


3718 


INK 


jFind filenaMe 


3728 


LDA 


TEKTBUFF,K 


3738 


BMI 


RETCIO ;Exit if <ret> 


3748 


CMP 


«• ; jColon precedes 


3758 


BNE 


FINDCOLON 


3768 


i 




3778 


LDA 


«8 ;Reset save cntr 


3788 


5TA 


SAUECNT 


3798 


5TA 


SAUEDFLG ;File not sawed 


3888 


5TA 


LNNOCNT jand stack cntr 


3818 


LDV 


tte 


3828 


CLRFIRST 


3838 


5TA 


FILEBOK.V ;ciear filebox 


3848 


INV 




3858 


CPV 


ttl2 jl2 chars in box 


3868 


BNE 


CLRFIRST 


3878 


J 




3888 


HOUFN 




3S98 


LDV 


»B ; Transfer fnane 


3988 


N0UCHR2 


; to filebox 



3918 
3928 
3938 
3948 
3958 
3968 
3978 
3988 
3998 
4888 
4818 
4828 
4838 
4848 
4858 
4868 
4878 
4888 
4898 
4188 
4118 
4128 
4138 
4148 
4158 
4168 
4178 
4188 
4198 
4288 
4218 
4228 
4238 
4248 
4258 
4268 
4278 
4288 
4298 
4388 
4318 
4328 
4338 
4348 
4358 
4368 
4378 
4388 
4398 
4488 
4418 
4428 
4438 
4448 
4458 
4468 
4478 
4488 
4498 
4588 
4518 
4528 
4538 
4548 
4558 
4588 
4578 
4588 
4598 
4688 
4618 
4628 
4638 
4648 
4658 
4668 
4678 
4688 
4698 
4788 
4718 
4728 
4738 
4748 
4758 
4768 
4778 
4788 
4798 
4888 
4818 
4828 
4838 
4848 
4858 
4868 



INK 
LDA 
BMI 
CMP 
BEQ 
JSR 
STA 
INV 
CPV 
BNE 
BEQ 



SAUE? 
LDA 
LDK 
JSR 
CPV 
BCC 



TEKTBUFF,K 

RETCIO ;Exit if <ret> 

tt'" jor quotes 

RETCIO 

CONUCHAR jMake internal 

FILEBOX, y ;And poke it 

tti2 jMax 12 chars 

M0UCHR2 

RETCIO 



tt <SAUE jSee if "SAUE" 
tt >SAUE ;in text line 



CMPTEKT 

tt4 

RETCIO 



jBlnk not needed 
J Br if nope 



LDA 
STA 



tt255 jProgran saved 

SAUEDFLG 



INC SAUECNT jinc tt Of saves 

LDA SAUECNT J Hake sure<9 

CMP ttl8 

BCC RETCIO 

LDA tt8 ;Else reset to 8 

STA SAUECNT 



RETCIO 

LDA »SPACE-32 jReMOUe ">" 

STA LI5TB0K J prohpt 

LDK tt8 

STK CIK ;Reset char indx 

LDA ttRETURN ;Last char=<ret> 

LDV ICSTAZ ;set status 

RTS J Return to CIO 



Get key froH editor; 



Before editor handles 
keypress or <break>, check for 
Edit Magic keys, Macro keys and 
console buttons. 

EGETKEV 

LDA 09 ; Clear pauser 

STA ROMCNTR J for scr output 

STA HELPFG ;S <help> press 



WAITFORKEV 
LDA tt8 
STA SSFLAG 



;So ctrl-1 does 
;nothing 

;Key pressed? 



LDA CH 

CMP ttNOKEV 

BNE CHPKEVl J Br if yep 

LDK BRKKEV ;<BRK> pressed? 
BEQ RETEGET jEXit if yep 

LDA HELPFG J [HELP] pressed? 

CMP ttl7 

BEQ HELPUSER ;Br if yep 

LDA CONSOL jButton pressed? 

AND tt7 

CMP tt7 

BNE CMPBUTTN ;Br if yep 

LDA tte jNeed to know if 

STA CONSOLREL jconsole has 

been released 
JMP MAITFORKEV ;Loop if nope 



RETEGET 

JMP (EGETKU) ;Return to o.s. 

EKITEGET 

PLA jAbort editor 
PLA jroutine in o.s. 

LDA ttRETURN jPrint <ret> to 

JSR EPUTCHAR ;Move cursor 

LDV ttBREAK jAnd tell CIO 

STV BRKKEV ; <brk> pressed 

RTS 



CMPBUTTN 

LDV tt8-3 
CMPCONSOL i 

INV 



jLook thru E.H. 
consol buttons 
;3-byte entries 
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4878 
4888 
4898 
4988 
4918 
4928 
4938 
4948 
4958 
4968 
4978 
4988 
4998 
5888 
5818 
5828 
5838 
5848 
5858 
5868 
5878 
5888 
5898 
5188 
5118 
5128 
5138 
5148 
5158 
5168 
5178 
5188 
5198 
5288 
5218 
5228 
5238 
5248 
5258 
5268 
5278 
5288 
5298 
5388 
5318 
5328 
5338 
5348 
5358 
5368 
5378 
5388 
5398 
5488 
5418 
5428 
5438 
5448 
5458 
5488 
5478 
5488 
5498 
5SBB 
5518 
5528 
5538 
5548 
5558 
5568 
5578 
5588 
5598 
5888 
5618 
5628 
5638 
5648 
5658 
5668 
5678 
5688 
5698 
5788 
5718 
5728 
5738 
5748 
5758 
5768 
5778 
5788 
5798 
5888 
5818 
5828 



INY 

IHV 

LDX EMC0N5OL,Y jExit if end 

CPX «7 ; Of entries 

BEQ HAITFORKEY 

CMP EMC0N50L,V ; Match? 

BNE CMPCONSOL jLoop if nope 

LDA CONSOLREL jconsole been 

BNE HOITFORKEV jreleased? 

INC CONSOLREL jSet flag 

GOCONSOL 

LDft EMC0N50L+1,Y 

STfi $D4 Jif found, 

LDA EMC0N50L'f2,Y 

STA $D5 jJUMp to addr 

JHP ($D4] 



HELPU5ER 

LDft EMFLG jignore <help> 
BEQ EGETKEY Jif E,M. Off 
LDA » (HELPMSG ;Print help 
LDK tt >HELPHSG ;infO 
JSR PRINTHSG 
JMP EKITEGET jAbort input 



CMPKEVl 
LDY 
BEQ 
LDY 

CHPMAC i 
INY 
INY 
INY 
BMI 
LDX 
CPX 
BEQ 
CMP 
BNE 

LDX 
STX 
LDA 
LDX 
JSR 
JMP 

CMPKEY2 
LDY 

CMP EM ; 
INY 
INY 
INY 
LDX 
CPX 
BEQ 
CMP 
BNE 

LDX 
STX 
LDA 
5TA 
LDA 
5TA 
JMP 



EMFLG 

CMPKEV2 

ttB-3 



CMPKEY2 

MACKEYS, 

tt255 

CMPKEY2 

MACKEYS, 

CMPMAC 



Jif E.M. Off 
jbr over macros 
J Look for Match 
in Macro keys 
j3-byte entries 



jEMergency exit 

Y 

J End of keys? 

jBr if yup 

Y J Match? 

jLoop if nope 



ttNOKEY J Clear keypress 

CH 

MACKEYS+1,Y jGet addr Of 

MACKEYS'f2,Y J Macro Msg 

PRINTMSG jPrint it 

UAITFORKEY jAnd go back 



«B-3 



jLook thru E.M. 
special keys 
j3-byte entries 



EMKEYS.Y jLast entry? 

«Z55 

RETEGET jEXit if yep 
EMKEYS.Y J Match? 
CMPEM JLoop if nope 

ttNOKEY jciear keypress 

CH 

EMKEYSil,Y JJUMp to addr 

SD4 J in entry 

EMKEY5+2,Y 

$D5 

C$D4) 



Jif [START] or 5HIFT-E5C 
jpressed, enter LIST BOX, 

*** ENTER LIST BOX *** 

ENTERLBOX 

LDA EMFLG jEXit if Edit 
BNE CLRLBOX jMagic off 

JBACK JMP MAITFORKEY J Loop back 



jBlank out box 
jie. dr scr MeM 



CLRLBOX 

LDX ttll 
LDA tte 

CLRBYTE 

5TA LI5TB0X+1,X 

DEX JBOX = 12 Chars 

BPL CLRBYTE JplUS ">" prOMpt 

MAKECURSOR 

LDX tta jTurn curs off 
LDA QLDCHR jby restoring 
STA tOLDADR,X) jnon-inu char 
LDA ttl28 J And put in bOX 

STA LlSTBOX+1 jpseudo-cursor 



5838 
5848 
5858 
5868 
5878 
5888 
5898 
5988 
5918 
5928 
5938 
5948 
5958 
5968 
5978 
5988 
5998 
6888 
6818 
6828 
6838 
6848 
6858 
6868 
6878 
6888 
6898 
6188 
6118 
8128 
6138 
6148 
6158 
6168 
6178 
6188 
6198 
6288 
6218 
6228 
6238 
6248 
6258 
6268 
6278 
6288 
6298 
6388 
6318 
6328 
6338 
6348 
6358 
8368 
6378 
6388 
6398 
6488 
6418 
6428 
6438 
6448 
6458 
6468 
6478 
6488 
6498 
6588 
6518 
6528 
6538 
6548 
6558 
6568 
6578 
6588 
6598 
6688 
6618 
6628 
6638 
6648 
6658 
6668 
6678 
6688 
6698 
6788 
6718 
6728 
6738 
6748 
6758 
6768 
6778 
6788 



5TARTINPUT 

LDA tt8 Jinitialize 
STA CHARINDX J index Of Char 

jReceive input froM keyboard 
jand display in LIST BOX. 

GETINPUT 

JSR KGETCHAR jGet a keypress 
CPY ttB J Check for error 
BMI EXITLBOX jExit if <brk> 
STA SAUCHAR jSave keypress 

NUMBER? 

CMP tt', JAIIOW COMMa 

BEQ CHCKINDX 

CMP tt'B jand 8-9 only 

BCC DELETE? 

CMP tt'9+1 Jin listbox 

BC5 DELETE? 

CHCKINDX 

LDX CHARINDX jlgnore key if 
CPX ttll J box is full 
BCC PUTINBOX JBr if not full 
JMP GETINPUT JLoop if it is 

PUTINBOX 

JSR CONUCHAR J Put nUM/COHMa 
STA LISTB0X+1,X Jin bOX 
INC CHARINDX jPoint nxt Char 
BNE PUTCURSOR jand branch 

DELETE? 

CMP ttDELETE jAllOW <deiete> 
BNE PUTCURSOR jBr if it isnt 

CLRCURSOR 

LDX CHARINDX jBackspace if 
BEQ PUTCURSOR JChars in box 
LDA ttB J Erase last char 

STA LISTB0X+1,X 

DEC CHARINDX jOne less Char 

PUTCURSOR 

LDX CHARINDX jPut CUrs block 
LDA ttlZS Jin listbox 
STA LISTB0X+1,X 

RETURN? 

LDA SAUCHAR jDone if <ret> 

CMP ttRETURN 

BNE ESC? jBr if not 

LDA tt8 jClr p-cursor 

STA LISTB0X+1,X 

JMP LISTLINES jList contents 

ESC? 

CMP ttESC J Abort if <esc> 

BEQ EXITLBOX J Br if yep 

JMP GETINPUT jEIse loop back 

jLeave input froM LIST BOX and 
jHove back to norMal screen. 

EXITLBOX 

LDX CHARINDX jReMOVe 

LDA Jt8 jpseudo-cursor 

STA LISTB0X+1,X 

JMP EXITEGET J Abort input 



Jif [SELECT] or CTRL-ESC 
jpressed, list contents of LIST 
JBOX by returning LIST+lnnos 
jto CIO as inputted line. 

*** LIST LINES *** 

LISTLINES 

LDA EMFLG jExit if EM Off 

BNE MOULIST 

JMP WAITFORKEY jLOOp back 

MOVLIST 

LDX tt5 J Move "LIST " 
M0UCHR3 J into text buffer 

LDA LIST-1,X 

STA TEXTBUFF-1,X 

DEX 

BNE M0UCHR3 

M0UCHR4 

CPX CHARINDX jPut Chars in 

BEQ MOUHILNNO? J liStbOX 

LDA LISTB0X+1,X jafter 
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6790 


CLC J "LIST " 


68BB 


ADC tt32 jConu to ascii 


6810 


STfl TEXTBUFF+5,K 


682B 


INK 


883B 


BNE M0UCHR4 


6848 


' 


6858 


HQVHILNHO? 


6868 


CMP «', jif last chr="/' 


6878 


BNE SETICB ;put "32767" 


6888 


; (sorry HAC/65 users) 


6898 


LDV tt8 


6988 


iOU32767 


691B 


LDfl HILNNO,Y ;"32767" in 


692B 


STfl TEKTBUFF+5,X jaSCii code 


693B 


INK 


694B 


INV 


695B 


cpy ttS 


6968 


BNE H0U32767 


6978 




6988 


SETICB 


6998 


TXA ;Tell editor 


78BB 


CLC ; Where input is 


7B1B 


ADC »128+5 


7B2B 


STA ICBALZ ;Zero-page lOCB 


7B3B 


LDA tt >TEKT8UFF 


7848 


STA IC8ALZ+1 


7858 




7868 


JETUPSCR 


7878 


LDA tt8 jClear esc flag 


7888 


STA ESCFLG ;in case pressed 


7898 


STA 5SFLAG ;and ctrl-1 fig 


71B8 


LDA ttCLEAR ;so screen will 


7118 


JSR EPUTCHAR ;clear and list 


7128 




7138 


LDA LNNOCNT jSave Size of 


7148 


STA STCKCNT ;stack and 


7158 




7168 


LDA tt8 ;Reset stack of 


7178 


STA LNNOCNT ;lnnos edited 


718B 


PLA jThrow out 


719B 


PLA ; return addrs 


7288 


PLA 


721B 


PLA 


7228 


LDY ttl ;set status to 


7238 


STY ICSTAZ ;no error 


7248 


JMP RETCIO JGO right to CIO 


7258 




7268 




7278 


If [OPTION] on SHIFT-CTHL-ESC 


7288 


pressed, toggle Edit Magic 


7298 


on/off. Nhen turned on, U8I 


7388 


routine will re-display top 


7318 


status line. 


7328 




7338 4 


*** TOGGLE EDIT MAGIC *** 


7348 1 


rOGEDTMAG 


7358 


LDA ttl )Toggle Edit 


7368 


EOR EHFLG jHagic flag 


7378 


STA EMFLG ; on/Off 


7388 


BED EMOFF jBr if now Off 


7398 




7488 


EHON 


7418 


JMP HAITFORKEY J Get S'More 


7428 




7438 


EHOFF 


7448 


LDA SAUSDLSTL ;Restore Old 


7458 


STA SDLSTL J display list 


7468 


LDA SAUSDLSTL+l 


7478 


STA 5DLSTL+1 


7488 




7498 


LDA SAUCOLRi ;Restore char 


7588 


STA COLORl ;brightness 


7518 


LDA »e ;and black 


7528 


STA C0L0R4 ;~border color 


7538 


; 


7548 


JMP HAITFORKEY ;Go back 


7558 




7568 




7578 


If <CLEAR> key tSHIFT-<} 


7588 


;pressed and cursor not on left 


7598 


Hargin, ignore it, 


7688 




7618 J 


HHt HANDLE SHIFT-CLEAR *** 


7628 


5HIFTCLR 


7638 


LDA EMFLG jExit if EM Off 


7648 


BEQ CLRIT 


7658 




7668 


LDA LOGCOL J Start Of 


7678 


CMP LMARGIN J logical line? 


7688 


BNE IGNOREIT jBr if nope 


7698 


:lrit 


77BB 


LDA SS4+64 ;Replace 


7718 


STA CH jkeypress 


7728 


JMP HETEGET ;and exit 


7738 


[GNOREIT 


7748 


JMP HAITFORKEY ;lgnore <clr> 



7758 


J 




7768 


J 




7778 


J 




7788 
7798 


jPut character to editors 


J "■""""" — 




7888 


i Use faster print routine to 


7818 


jspeed up screen output. Also 


7828 


jallow pause, and check for 


7838 


iline nunber preceding text. 


7848 


;lf inno in stack, Mark it. 


7858 


i 




7868 


PUTENTRY 


7878 


STA 


SAUCHAR jsaue Char 


7888 


J 




7898 


LDY 


EMFLG jEXit if Edit 


7988 


BEQ 


GO. OS ;Magic off 


7918 


J 




7928 


LDY 


DINDEK Jlf not txt Mode 


7938 


BEQ 


BREAK? 


7948 


GO. OS 




7958 


JMP 


EPUTCHAR jlet o.s, print 


7968 


t 




7978 


BREAK? 




7988 


LDV 


BRKKEY jAbort if <brk> 


7998 


BNE 


CTRLl? 


8888 


JMP 


ABORTOUTPUT 


8818 


i 




8828 


CTRLl? 




8838 


LDV 


SSFLAG JLOOP if CTRL-1 


8848 


BNE 


BREAK? ;pressed 


8858 






8868 


jlf Start Of text line, check 


8878 


;for linenuMber. If line has one 


8888 


J and Matches one in stack, nark 


8898 


jthe line. 


8188 






8118 


LDX 


LHARGIN ;R00N to Mark? 


8128 


BEQ 


PAUSEON? ;Br if nope 


813B 


CPK 


LOGCOL ;Start of line? 


8148 


BCC 


PAUSEON? JBr if nope 


8158 


1 




8168 


LDK 


STCKCNT ;Have any innos 


8178 


BEQ 


PAUSEON? jbeen edited? 


8188 


i 




8198 


CMP 


«'8 ;ls Char part 


8288 


BCC 


PAUSEON? jof a inno? 


8218 


CMP 


»'9+l 


8228 


BCS 


PAUSEON? JBr if nope 


8238 


i 




8248 


LDV 


tt255 jSkip over 


8258 


SKIP8 ; 


leading zeroes 


8268 


INV 




8278 


LDA 


(INBUFF],Y jPOintS to tt 


828B 


CMP 


»'8 jzero char? 


8298 


BEQ 


SKIP8 jLoop if yup 


8388 


J 




8318 


LDA 


n <LNNOSTACK jUe'll lOOk 


8328 


STA 


$E8 ; thru stack 


8338 


LDA 


tt >LNNOSTACK JtO see if 


8348 


STA 


$E1 J saMe inno 


8358 


i 


has been edited 


8368 


TVA 


jindxes 1st char 


8378 


CLC 




838B 


ADC 


INBUFF 


839B 


STA 


$E2 jPoint to Inno 


8488 


LDA 


INBUFF+1 


8418 


ADC 


ne 


8428 


STA 


SE3 


8438 


i 




8448 


LDA 


STCKCNT jsaue counter 


8458 


STA 


$E4 


8468 


J 




8478 


LOOKLNNO 


8488 


LDV 


tte 


84 98 


DEC 


$E4 jDone when all 


8588 


BMI 


PAUSEON? J Innos checked 


8518 


LOOKCHR 




8528 


LDA 


($E2),Y jChar froM line 


8538 


TAX 


jSawe it 


8548 


AND 


ttl27 ;In case inverse 


8558 


CMP 


c$Ee],Y jChar in stack 


8560 


BNE 


NEXTLNNO 


8S7B 


CMP 


ttSPftCE jDone if blank 


8588 


BEQ 


MATCHLNNO 


8598 


INV 


jNext char 


8688 


CPY 


»5 jMax 5 Chars 


8618 


BEQ 


MATCHLNNO jAssune Hatch 


8628 


TXA 


jLast tt Char? 


8638 


BPL 


LOOKCHR jLoop if not yet 


8648 


i 




8658 


LDA 


($E8),V jls next char 


8688 


CMP 


ttSPACE ;a blank? 


867B 


BNE 


NEKTLNNO jBr if no 


8688 


J 




8698 


MATCHLNNO ; Match found! 


8788 


DEC 


OLDADR+1 jMark line by 
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8718 


LDV tt255 ; putting arrow 


8728 


LDA tfQ+e4 ileft Of cursor 


8738 


5Tfl IQLDftDRJ.Y 


8748 


INC OLDADRil 


8758 


JHP PAUSEGN? 


8788 


J 


8778 


NEKTLNNO 


8788 


CLC 


8798 


LDA ns jLook at next 


8888 


ADC $E8 ;lnno in stack 


8818 


STfl $E8 


8828 


LDO $E1 


8838 


ADC m 


8848 


5TA $E1 


8858 


JHP LOOKLNNO 


8868 


t 


8878 


t 


8888 


PAU5E0N? 


8898 


LDA SAUCHAR 


8988 


LDV PAU5EFLG 


8918 


BEQ FASTPRNT 


8928 


J 


8938 


LDV KBCODE ;If last ke!/='C' 


8948 


CPV «18 


8958 


BNE COUNTLN 


8988 


LDV ttNOKEV ;clear keypress 


8978 


STY CH 


8988 


JHP FASTPRNT J Don't pause 


8998 


i 


9888 


CLEAR? 


9818 


CHP «CLEAR jif <clr> Char 


9828 


BNE COUNTLN jreset row cntr 


9838 


LDV tt8 jonli; if screen 


9848 


CPV DSPFLG jwill clear 


9858 


BNE COUNTLN ;Br if not 


9868 


CPV ESCFLG 


9878 


BNE COUNTLN ;Br if not again 


9888 


5TV ROMCNTR ;Clear tt lines 


9898 


JHP GO, 05 jand print <clr> 


9188 


f 


9118 


COUNTLN 


9128 


CHP ttRETURN J Keep count Of 


9138 


BEQ INCLH ;lines printed 


9148 


LDK COLCRS 


9158 


CPM RHARGIN 


9168 


BCC FASTPRNT 


9178 


INCLN INC ROMCNTR 


9188 




9198 


jEwery 22nd line printed, pause 


9288 


joutput and wait for keypress. 


9219 




9228 


PAUSESCR? 


9238 


JSR EPUTCHAR jPrint Char 


9248 


LDK ROMCNTR J Tine to pause? 


9258 


CPH «21 


9268 


BCC LEAVE jBr if no 


9278 


1 


9288 


LDV «8 J Reset « rows 


9298 


5TV ROMCNTR ;printed 


9388 


STV CONSOL jClick speaker 


9318 


f 


9328 


PUTPROHPT 


9338 


LDK tt <[H5G2-HSGS] 


9348 


JSR PUTHSG jPut "press key" 


9358 


; Msg on top line 


9368 


LDA ttNOKEV J Clear keypress 


9378 


STA CH 


9388 


MAITF0RKEV2 


9398 


CHP CH jMait for user 


9488 


BNE CONTOUTPUT ;to hit a key 


9418 


LDK BRKKEV ; or <brk> 


9428 


BNE MAITF0RKEV2 


9438 


i 


9448 


LDK tt <CHSG1-H5GS] 


9458 


JSR PUTHSG ;Clr prowpt 


9468 


1 


9478 


ABORTOUTPUT 


9488 


LDV ttBREAK J (BREAK) pressed 


9498 


STV BRKKEV 


9588 


RTS 


9518 


J 


9528 


CONTOUTPUT 


9538 


STA CH ;Clear keypress 


9548 


LDV »8 jciear ctrl-l 


9558 


STV SSFLAG ipause 


9568 


CLRPROHPT 


9578 


LDK tt <[H5G1-H5GS] 


9588 


JSR PUTHSG ;Restore title 


9598 


1 


9688 


LEAVE RTS ;G0 back to CIO 


9618 


1 


9628 


;Put character directly in 


9638 


;screen neMory unless scrolling 


9648 


;or control character. 


9658 


1 


9668 


FASTPRNT 



9678 


LDK 


COLCRS 


;MiIl it scroll? 


9688 


CPK 


RHARGIN 




9698 


BCS 


PRINTCHR 


;Br if Maybe 


9788 


TAK 




;save char 


9718 


AND 


ttl27 




9728 


CHP 


ttl25 


;Is char a 


9738 


BCS 


PRINTIT 


; non-control 


9748 


CHP 


tt32 


jchar? 


9758 


BCS 


PUTIT 




9768 


CHP 


tt27 




9778 


BCC 


PUTIT 




9788 ; 








9798 PRINTIT 






9888 


TKA 




jRegain char 


9818 PRINTCHR 




9828 


JHP 


EPUTCHAR 


;Let o.s. print 


9838 J 








9848 PUTIT 






9858 


TKA 




JRegain char 


9868 


JSR 


CONVCHAR 


j-Hake internal 


9878 


LDV 


tt8 


jPut char in 


9888 


STA 


COLDADR] 


,V jcurs pos in 


9898 J 






screen hom 


9988 HOUCURS 






9918 


INC 


COLCRS 


;Hove cursor 


9928 


INC 


LOGCOL 


jpointers to 


9938 


INC 


OLDADR 


;next coluMn 


9948 


BNE 


PUTCURS 




9958 


INC 


OLDADR+1 




9968 J 








9978 PUTCURS 






9988 


LDA 


(OLDADR] 


,v J Save char 


9998 


STA 


OLDCHR 


junder curs and 


818888 


FOR 


»128 


J inverse it 


818818 


STA 


(OLDADR) 


,V 


818828 








818838 


EKITPUTCHR RTS 


.■Return to CIO 


818848 








818858 








818868 








818878 
818888 


jHandle UBI: 










818898 


jBefore exiting vert, blank 


818188 


jint, 


Hake sure Edit Hagic's 


818118 


;settings are 


still intact. 


818128 








818138 


KITUBI 




818148 


LDA 


EHFLG 


!Edit Hagic on? 


818158 


BEQ 


EKITUBI 


J Br if nope 



818168 

818178 

818188 

818198 

818288 

818218 

818228 

818238 

818248 

818258 

818268 

818278 

818288 

818298 

818388 

818318 

818328 

818338 

818348 

818358 

818368 

818378 

818388 

818398 

818488 SETCOLR 

818418 LDA ttl2 



LDA SDLSTL+1 jif not using 

CHP » >DLIST ;our disp list, 

BEQ SETCOLR 

STA SAVSDLSTL+1 ;save addr 

LDA SDL5TL J Of theirs 

STA 5AVSDLSTL 

LDA SAVHSC J Let dl know 

STA SCRHEH ;where scr is 

LDA SAVHSC+1 

STA SCRHEH+1 

LDA 9 <DLIST ;and use ours 

STA 5DLSTL 

LDA tt >DLIST 

STA SDLSTL+1 

LDA ttl ; Reset pause for 
STA PAUSEFLG ; listing 



LDA COLORl 

CHP ttl2 

BEQ SETCOLR 

STA SAUCOLRl jsave it 



Jif new char 
J brightness 



STA COLORl 
STA COLPFl 
LDA tt2 
STA C0L0R4 

LDA EPUT 
STA ICPTL 
LDA EPUT+1 
STA ICPTL+1 



jBrighten chars 



jLighten border 



jHake sure our 
jput char vect 
;is used 



818428 
818438 
818448 
818458 
818468 
818478 
818488 
818498 
818588 
818518 

818528 EKITVBI J Restore regs 

818538 PLA j (Tracy DuHont 

818548 TAV jsaid She'd pay 

818558 PLA JMe a dollar if 

818568 TAK ;l put her name 

818578 PLA ;here.) 

818588 RTI jLeave Ubi 

818598 J 

818688 i 

818618 i 

818628 *** SUBROUTINES *** 

JANUARY A.IM.A.L.O.Q. Computing 



eiB638 




- 


eiee4e 






eieese 


JJUHP to O.S. 


GET froN editor 


eieeee 


t 




618678 


EGETCHAR 




818688 


LDO SflUEGETV+1 


618698 


PHA 




818788 


LDO SAUE6ETU 




818718 


PHA 




818728 


RT5 




818738 






818748 






818758 


jCoHpare start 


of entered text 


818768 


;with up to S 


characters. 


818778 






818788 


CMPTEXT 




818798 


STA $D4 


J Passed addr of 


818888 


5TH $D5 


;text to cowpare 


818818 


LDX cm 


jindx of 1st chr 


818828 


LDY tt255 




818838 


CMPCHR 




818848 


INY 


;Check up to 5 


818858 


CPY «5 


jcharacters 


818868 


BEQ HATCH 


;Br if done 


818878 


LDA TEKTBUFF 


,x jChar from in 


818888 


AND ttl27 


jIn case inverse 


818898 


CMP tt96 


J Lowercase? 


818988 


BCC SAHECHR? 


J Br if no 


818918 


SEC 


J Make uppercase 


818928 


SBC tt3Z 




818938 


SAMECHR? 




818948 


CMP («D4),Y 


;Char froH E.M. 


818958 


BNE NOMATCH 




818968 


INK 




818978 


CMP HSPfiCE 


jBlank ends 


818988 


BNE CMPCHR 




818998 


I 




811888 


HATCH 




811818 


LDY ai28 


;5et N-flg 


811828 


RT5 




811838 


t 




811848 


NOMATCH 




811858 


LDA SD4 


J Restore arg adr 


811868 


LDX $D5 




811878 


CPY »8 


;Clear H-flg 


811888 


RTS 




811890 






eiiiee 






811118 


jConuert char 


from ASCII to 


811128 


;internal Cscreen) , 


811138 






811148 


CDNUCHAR 




811158 


STH SAUREG 


;saue xreg 


811168 


PHA 


;Acc=ascii char 


811178 


AND ttl27 


;Make non-inv 


811188 


TAX 


;Saye in xreg 


811198 


PLA 


;Restore char 


811288 


CPX 1)96 


; Lowercase? 


811218 


BCS NOTRNS 


J Br if yep 


8112Z8 


CPX «32 


('Graphics char? 


811238 


BCS TRNS2 


jBr if nope 


811248 


TRN51 




811258 


CLC 


;Conu grphic chr 


811268 


ADC tt64 




811278 


BCC NOTRNS 




811288 


TRNS2 




811298 


SEC 


iConv uppercs 


811388 


SBC «32 




811318 


NOTRNS 




811328 


LDX SAUREG 


jRestore xreg 


811338 


RTS 




811348 






811358 






811368 


jPrint a nessage. 


811378 


jPassed! Acc&x 


reg contain addr 


811388 


jof Message. Print char by 


811398 


;char until zero value found. 


811488 






811418 


PRINTMSG 




811428 


STA $D4 


jsave lo addr 


811438 


STX $D5 


jSave hi addr 


811448 


LDY 88 




811458 


PRINTCHAR 




811468 


STY SAUREG 


;saue index 


811478 


LDA ($D4),Y 


jGet Msg char 


811488 


BED EKITPRNT 


jExit if 8 


811498 


JSR EPUTCHAR 




811588 


CPY »8 


;<brk> pressed? 


811518 


BMI EXITPRNT 


;Exit if <brk> 


811528 


LDY SAUREG 


;Restore index 


811538 


INY 




811548 


BNE PRINTCHAR ;LODp back 


811558 


INC $D5 




8115E8 


BNE PRINTCHAR 


811578 


J 




811588 


EXITPRNT 





811598 
811688 
811618 
811628 
811638 
811648 
811658 

eiieee 

811678 
811688 
811698 
811788 
811718 
811728 
811738 
811748 
B11758 
811768 
811778 
811788 
811798 
811888 
811818 
811828 
811838 
811848 
811858 
811868 
811878 
811888 
811898 
811988 
811918 
811928 
811938 
811948 
811958 
811968 
811978 
811988 
811998 
812888 
LARGE! 
812818 
812828 
812838 
812848 
812858 
812868 
812878 
812888 
812898 
812188 
812118 
812128 
812138 
812148 
812158 
812168 
812178 
812188 
812190 
812288 
812218 
812228 
812238 
812248 
812258 
812268 
812278 
812288 
812298 
812388 
812318 
812328 
812338 
812348 
812358 
812368 
812378 
812388 
812398 
812488 
812418 
812428 
812438 
812448 
812458 
812468 
812478 
812488 
812498 
812588 
812518 
812528 
812538 



RTS 



;Print a single character, 

EPUTCHAR 
TAV ;Acc=char 
LDA SAUEPUTU+1 ;Push vector 
PHA ; to stack 
LDA SAUEPUTU 
PHA 
TYA ;Restore char 

RTS JJUMP to O.S. 



;Put a Message in MSG BOX in 
jEdit Magic screen line. 

PUTM5G 

LDY 88 
PUTBYTE 

LDA MSGS.x J Xreg indxs Msg 

STA MSGBOX,Y 

INX 

INY 

CPY 811 ;Msgbox=ll chars 

BNE PUTBYTE 

RTS 



jGet a keypress. 

KGETCHAR 

LDA KHANDTAB-^S JJUMp to O.S. 

PHA 

LDA KHANDTAB+4 

PHA 

RTS 



.IF *>SCFFF 

.ERROR "EDIT MAGIC CODE TOO 

.ENDIF 



IHHf SCREEN DATA *** 
»= DISPLIST 

DLIST 

.BYTE S7B,$5B,66 

.MORD EMLINE 

.BYTE $18,66 
5CRMEM »: »+2 

.BYTE 2,2,2,2,2,2,2 

.BYTE 2,2,2,2,2,2,2,2,2,2,2 

.BYTE 2,2,2,2,2,65 

.MORD DLIST 

EMLINE 

LI5TB0X .SBYTE " H" 

MSGBOX .SBYTE " l*»^iFT !Tfll" 
FILEBOX .SBYTE " ||" 

BAKUPCHT .SBYTE "B" 



HSGS 

HSGl .SBYTE 

HSG2 , SBYTE "| 



Edit Magic 
press a kev 



*** HACROS *** 

*z HACLIST 

Table for Macro keys. 
Entries consist of 3 bytes: 
1st is internal value of 
keypress, 2nd & 3rd are 
address of text to print. 
Text is printed until zero 
found. 

HACKEYS 

.BYTE 52+64+128 ;s-C-BS 

.MORD SHFTCTRLDEL 

.BYTE 55+64+128 JS-C-INSERT 

.MORD SHFTCTRLINS 

.BYTE 48+64+128 ;S-C-R 

,MORD SAUTBUFF 

.BYTE 255 



*** HISC STORAGE *** 



JANUARY A.N.A.L.O.Q. Computing 



812548 
812558 
812568 
812578 
812588 
812598 
812688 
812618 
812628 
812638 
812648 
812658 
812668 
812678 
812688 
812698 
812788 
812718 
812728 
812738 
812748 
812758 
812768 
812778 
812788 
812798 
812888 
812818 
812828 
812838 
812848 
812858 
812868 
812878 
812888 
812898 
812988 
812918 
812928 
812938 
812948 
812958 
812968 
812978 
812988 
812998 
813888 
813818 
813828 



*= MI5C 

EHFLG .BVTE 1 

SftUSDLSTL »= »+2 

SflUEGETU »= *+2 

SAUEPUTU 

50UC0LR1 

SAUECNT 

SflUEDFLG 

5TCKCMT 

LNNOCNT 

ROHCNTR 

SAUCHAR 

SAUREG 



Ctrl-E5C 



*z *+2 
.BYTE 18 
BVTE 8 
.BVTE 8 
■BVTE 8 
.BVTE 8 
.BVTE 8 
.BVTE a 
BVTE 8 
CHARINDM .BVTE 8 
CONSOLREL .BYTE 8 

LOAD .BYTE "LOAD " 
5AUE .BYTE "SAUE " 
LIST .BYTE "LIST " 
HILNNO .BYTE "32767" 

EGETKU .HORD $F2FD 

SAUTBUFF .BYTE 8 
»: *+127 

LNNOSTACK 
»= »+ 124»51 



Table for function keys. 
EMCONS0L/EMKEV5 has 3-byte 
entries! console button/key 
plus address to Juhp to if 
pressed. 



Ihconsol 

.BYTE 6 ; 
.HORD ENTERLBOX 
.BYTE 5 ; 
.UORD LISTLINES 
.BYTE 3 ; 
.UORD TOGEDTHAG 
.BYTE 7 



EHKEV5 

.BYTE 28+64 



[Start] 

[select] 

[option] 



Shift-ESC 



.UORD ENTERLBOX 

.BYTE 28+128 J 

.UORD LISTLINES 

.BYTE 28+64+128 JS-C-E5C 

.UORD TOGEDTHAG 

.BYTE 54+64 J Shift-< 

.UORD 5HIFTCLR 

.BYTE 255 



QESKErnXS 
ts=shift,c=cont 
or S-ESC : 



Recalls last 
Deletes succe 



813838 

813848 

813858 

813868 

813878 

813888 

813898 

813188 

813118 i 

813128 ; 

813138 HELPHSG 

8131 48 .BYTE 

mHH ".155 

813158 .BYTE 

roll", 155, 155 

813168 .BYTE "[START] 

Edit LIST BOX", 155 

813178 .BYTE "[SELECT] or C-ESC 

List tt'S in BOX", 155 

813188 .BVTE "[OPTION] or S-C-ESC 

Toggle EM on/off", 155 

813198 .BYTE "S-C-H 

line entered", 155 

813288 .BYTE "S-C-BS 

eding M chars", 155 

813218 .BYTE "S-C-INSERT 

lines", 155 

813228 .BYTE "s-CLEAR = Cursor HUSt 

be on 1ft Margin", 155 

813238 .BYTE "C = Continuous output 

(when listing]", 155, 155 

813248 .BYTE " [HELP] = Prints 

this", 155, 155 
813258 .BYTE 8 
813268 i 
B1327B ' 
813288 SHFTCTRLDEL .BYTE "OlUUIUUl 

rtrrrrrrtrtrttr rrtrrrrttcttfrB 

fllS290 * 

813388 5HFTCTRLINS .BYTE " UlimilH ". 

8 

813318 i 

813328 ' 

813338 ' .IF »>DISPLI5T 

813348 .ERROR "MISC. STORAGE AREA 

TOO LARGE!" 

813358 .ENDIF 

813368 1 

813378 *- SF25D 



Inserts Q 



813388 

813398 

813488 

813418 

813428 

813438 

813448 

813458 

813468 

813478 

813488 

813498 

813588 

813518 

813528 

813538 

813548 

813558 

813568 

813578 

813588 

813598 

813688 

813618 

813628 

813638 

813648 

813658 

813668 

813678 

813688 

813698 

813788 

813718 

813728 

813738 

813748 

813758 

813768 

813778 

813788 

813798 

813888 

813818 

813828 

813838 

813848 

813858 

813868 

813878 



.UORD EGETKEY 

*= EHANDTAB 

EOPEN *= **2 

ECL05E »= *+2 

EGET .UORD GETENTRY-1 

EPUT .WORD PUTENTRV-i 

E5TAT »= *+2 

ESPEC *: »+2 

EINIT *: *+3 



;The code has nou been stored 
;in Q.s. RAM. If loaded as an 
jAUTORUN.SVS file, control will 
jeventually revert back to the 
jcoldstart routine— which has 
;been overwritten! So, check 
j'for this situation, and do 
jcoldstart work so we needn't 
jreturn there. 

*: INITCODE J Here again 

RUN 

LDA COLDST jPowerup? 

BNE FINISH. COLD jBr if yeS 
RTS J Return to DOS 



FINISH. COLD 
LDX tt255 
TXS 

LDA »1 
STA $89 
J5H $E739 
LDA tt8 
STA COLDST 
LDA TRAHSZ 
BEQ GO. DOS 
LDA $BFFD 
AND tt$e4 
BEQ GO. DOS 
JMP (SBFFA) 

GO. DOS 

JHP (DOSVEC) 



*: RUNADR 
.HORD RUN 



;Reset stack 
;pointer 
;successful 
jdisk boot 

;So no reboot 

jLft cart? 
;Br if no 
jGo to cart? 

jBr if no 
;JuHp to cart 

JJUMP to DOS 



No Frills Software 

800 E. 23rd St. Kearney, Ne. 68847 
(308)234 6250 M SAT Ham 7pin(Spin Sat) 

THE CONVERTERCtm) 8blt 

Convert fpom Prlntshop(tm) or HI Tech Expression 

programs to Newsroom(tm) or HI Tecli format 

(Awardware, Printpower or Sesame St. Print Kit). Also 

make your own HI Tech graphics or cllpart with the 

graphics editor Included. $19.95 + $2 shipping. 

PS Utility DISK *l Bblt 

Makes multlslzed labels using Prlntshop Icons, makes 
coupons, and bookmarkers. Prints Icon catalogs, font 

catalogs and border catalogs. Undelete, delete & 
renames Icons. Transfer utility allows easy moving of 
Icons. Includes labels for label maker . $24.95 >^$2 ship. 

CONVERTER COMPANIION 8bit 

In the works (expected February 1989). More 

conversions. From drawing pgms (Koala riles) 

to Newsroom & HI Tech. From Newsroom & 

HI tech to PS. Expected price $19.95 t $2 ship. 

READY \OW»- PS Railroad Icons, $14.95, ADULT PS 

Icons disk (50 Icons) $9.95, PS Fonts & Borders 6 or 7 

$14.95 each(*7 ready late December). More.... Send 

SASE for full catalog of more than 45 PS disks (45 

cents postage full catalog,) PAYMENT: MO, CHECK, 

VlSA/MC(add 4X). Add $1.50 1st PS graphics disk 

shipping, 50 each added disk (USForelgn shipping add 

$1 to US rates for CANADA, $3 other countries. 

We also have other PS disks of ours and other 

programs. If you haven't asked for our catalog, 

check it out now. 



"Outside** ST & Sbit software 

We carry hundreds of titles at 30 40% off list. 
SbIt 

Bridge 9.0- $17.89 Strip Paker-$I7.9S Newsroom $29.99 
Video Tide Sllop-$l8.8S Video T. Shop Graphics disk 3-$M.99 

Sortbyte Lo(lo-$I4.99 Giuntlel Deeper Dungeons $IS.99 

Trallblazer $17.99 Celeb Cookbook-$30.99 Gauntle(-$}0.99 

Blazing Paddles-$a0.99 Alternate Reality the Dungeon-$25.75 

Tomahawk $19.88 311 Baker Street $17.88 Spitfire 40 $30.99 

Rainy Day Games $17.98 Video Vegas-$17.88 Blamark $19.99 

Zorra-$I0.98 Microprint Interface $33.97 A u tod u el $30.99 

PLUS moret Also, hundreds of used 8blt pgms. Call. 

ST titles 

PInbali Wizard $20.99 221 Baker St~'$3S.7S OIDS~$ll.99 

DEGAS ELITE-$38.88 Mark Williams 'C --$118.89 SUNDOG-$3'«.99 

Hunt for RED 0clober-$31.9S IB 40 track IBM drlve-$IS8.85 

Bubble Ghost- $31.81! Label Master Elite $30.88 

CRAZY Cars or Offshore Warrlar--$24.8S each 

SUNCOM Mouse Pad(grey)--$S.89 DYNACADD(ISD) $408 

Word Perrect--$I89.9S International Soccer-$3S.9S 

PrlmeTlme-$34.8S TIMEWORKS Desktop Publishing $79.9S 

Tlmeworks DTP Symbols & Slogans $24.9!, Design Ideas-$14.9S 

Dr. T'B Copylstd meg)-$5S.S5 Copyist n-$l48.85 

Midi Recording Studio Vl.i $37.85 ICE YSIfw/auto Comp) $48.85 

ICeyboard Controlled Sequencer Level IKi meg)- $334.85 

Plus many more ST titles 

We also have many of our own PM icon disks and now some of our PS 

Font/Border disks converted for Prlntmaster. send SASE for 

catalog(45 cents full catalog). 

SHIPPING for -outside- software: Add $3 for first title, add $1 each 

added title up to 6. More than 6 call. Hardware and accessories we 

charge actual UPS charges, call for estimate or add 5X and difference 

will be refunded. We have black and colored ribbons for 

Prowrlter/Nec,l$3.75 bik, $5 color), Panasonic 1080,90-92 (black $4,49, 

color $9.99), Star NX-lOtblack $4.99 color $5.99), Epson FX/MX/RX 

70/80 black $3.99 

Foreign shipping use credit card or write/call for details. 

We are looking for SbIt & ST programmers Tor 

our projects or yours, call/write. We pay highest 

royalties. 



CIRCLE im ON READER SERVICE CARD. 
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FOR OUR DISK 
SUBSCRIBERS 

The following programs from this 
issue are on disk: 



THE A.N.A.L.O 


.G. »68 


DISKETTE CONTAINS 


8 




MAGAZINE 


FILES. THEY ARE LISTED BELOW. 






SIDE 1: 














FILENAME 


EXT 


LANG. 


LOAD 


COMMENTS 






NUMED 


SRC 


BASIC 


ENTER 


NUMBER EDITOR 




NUMED2 


BAS 


BASIC 


LOAD 


NUMBER EDITOR, L2 




STELLAR 


OBJ 


ML 


<»3) 


STELLAR ARENA 




EDTMAGIC 


OEJ 


ML 


(#3) 


EDIT MAGIC 






INFERNO 


DAS 


BASIC 


LOAD 


INFERNO 






GDWl 


LST 


BASIC 


ENTER 


GAME DESIGN 


WHKSHP, 


PI 


GDW2 


LST 


BASIC 


ENTER 


GAME DESIGN 


WRKSHP, 


P2 


GDW3 


LST 


BASIC 


ENTER 


GAt^lE DESIGN 


WHKSHP, 


P3 


GDW4 


LST 


BASIC 


ENTER 


GAt-lE DESIGN 


WRKSHP, 


P4 


GDW5 


LST 


BASIC 


ENTER 


GAME DESIGN 


WRKSHP, 


P5 


GDW6 


LST 


BASIC 


ENTER 


GAME DESIGN 


WRKSHP, 


P6 


GDW7 


LST 


BASIC 


ENTER 


GAME DESIGN 


WRKSHP, 


P7 


GDW8 


LST 


BASIC 


ENTER 


GAME DESIGN 


WRKSHP , 


P8 


MLEDITOR 


BAS 


BASIC 


LOAD 


M/L EDITOR 






EDITORII 


LST 


BASIC 


ENTER 


BASIC EDITOR II 




SIDE 2; 














FILENAME 


EXT 


LANG. 
MAC/6 5 


LOAD 
LOAD 


COMMENTS 

NUMBER EDITOR SOURCI 




NUMED 


M65 




STELLAR 


M65 


MAC/ 6 5 


LOAD 


STELLAR ARENA SOURCE 


EDTMAGIC 


M65 


MAC/65 


LOAD 


NUMBER EDITOR SOURCE 


TO LOAD 


£OUR 


A.N.A.L 


O.G. DISK 







1) INSERT BASIC CARTRIDGE (NOT REQUIRED FOR XL 
OR XE COMPUTERS) 

2) TURN ON DISK DRIVE AND MONITOR 

3) INSERT DISK IN DRIVE 

4) TURN ON COMPUTER (XL AND XE OWNERS DO NOT 
HOLD DOWN OPTION KEY!) 

WARNING: BEFORE YOU RUN A PROGRAM, READ THE 

APPROPRIATE ARTICLE IN THE MAGAZINE. 

NOTE: ONLY PROGRAMS WITH THE ".BAS" OR ".OBJ" 
EXTENTION MAY BE RUN FROM THE MENU. 
OTHER PROGRAMS SHOULD BE LOADED AS 
INSTRUCTED IN THE LOADING NOTES AND MAY 
REQUIRE ADDITIONAL SOFTWARE AS LISTED 
BELOW. HOWEVER, YOU SHOULD NOT ASSUME 
THAT EVERY FILE WITH THE PROPER FILE 
EXTENSION WILL RUN FROM THE MENU. YOU 
MAY HAVE TO MOVE CERTAIN PROGRAMS TO A 
DIFFERENT DISK TO OBTAIN CORRECT RESULTS. 



EXT 


DESCRIPTION 




.H65 


REQUIBES THE 


OSS MAC/65 ASSEMBLER 


.AMA 


REQUIRES THE 


ATARI MACRO ASSEMBLER 


.ASM 


REQUIRES THE 


ATARI ASSEMBLER/EDITOR 


.ACT 


REQUIRES THE 


OSS ACTION! CARTRIDGE 


.LGO 


REQUIRES THE 


ATARI LOGO CARTRIDGE 


.SYN 


REQUIRES THE 


SYNAPSE SYN ASSEMBLER 


.STB 


REQUIRES ST BASIC 


LOAD I 


NG NOTES 





LOAD BASIC PROGRAM: LOAD "D: FILENAME. EXT" 
ENTER BASIC PROGRAM: ENTER "D : FILENAME . EXT" 
LOAD MAC/65 PROGRAM: LOAD #D : FILENAME . EXT 
ENTER ASM/ED PROGRAM: ENTER #D : FILENAME . EXT 
LOAD LOGO PROGRAM: LOAD "D: FILENAME. EXT" 
LOAD SYN/AS PROGRAM: LOAD "D : FILENAME. EXT" 



#1: SEE ACTION! MANUAL. 

#2: SEE ATARI MACRO ASSEMBLER MANUAL. 

#3: MAY ALSO BE LOADED FROM DOS USING THE "L" 

OPTION O? THE DOS MENU. 
#4: THIS FILE SHOULD BE TRANSFERRED TO ANOTHER 

DISK AND RENAMED "AUTORUN. SYS" . 
»5: SEE ST BASIC MANUAL. 



LOFI 

Loan Financing 
Calculations for: 

• Home buying 

• Real estate 

• Any major purchase 

Easy Menu Operation. 

Clear, complete manual. 

Atari 48K 80O/80OXL/65XE/ 130XE Disk 

$19.95 

(US.S&.H$2.NMSalesTax5%) 

Send Check or Money Order or 

Send SASE for free catalog. 

Mead Micro Ware 

10 Benito PI. 
Los Alamos, NM 87544 
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SAVE MONEY ON 

ATARF 800/XL/XE SOFTWARE 



Atari Public Domain & Shareware 
Software 

Over 250 Theme Disks! Every disk 
is Guaranteed! 

Games! Graphics! Educational! 
Music! Utilities! Home & Business! 

Fast dependable world-wide service! 

Send for your FREE descriptive 
Catalog. 

BELLCOM 

P.O.Box 1043-G 

Peterborough, Ontario 

Canada K9J 7A5 
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80 COL. SCREENI-NEW PRICES! 



Winner ANTIC 
awards '88 



Turbobase. 

"IBM power without the price. . . I really can't think of any feature associated with running 
a business that has been left out-except for the huge prices charged for comparable 
software on MS-DOS computers." -ANTIC, Dec. '87 

"...the most time consuming review I have ever done, due to the number of features... 
Turbobase finally gives what 8-bit owners have been clamoring for for years; true, power- 
ful business software ... set up a fully capable business system for less than $1 ,000 . . . 
customer support is superb . . . Practicality-excellent. Documentation-excellent." 

-COMPUTER SHOPPER, Aug. '87 
". . .one of the most powerful and versatile database programs available. . . " 

-COMPUTER SHOPPER, Aug. '88 



> Capability 

' Capacity 

' Remote Terminals 

' Exhaustive Support 

• No Disk Switching 

' 7/ny Footprint 

' Nol Copy Protected 



COMPARE TO IBM 

' Complete Documentation • 

' $20-$50 Cuslomizations • 

• One pacl<age/ali modules • 
' All Hardware Upgrades • 
' Brand Name Hardware • 
' True Integration • 

• Free Applicalion Set-up • 



CLONES: 

Speed among thousands of records 
Ease of learning (per feature) 
Number of English error messages 
Adaptability to Existing Application 
Hardware/DOS easier than Glcne/lvIS DOS'" 
Faster Back-up to inexpensive floppy 
Complete Invoice/Payments Error Checking 



rufbnbasc i.ikes 520,000 video More s^le from IBM S V, Pl^infield, IMJ 
Tuitjon^^e lakes S20 000 IBM Srile (or waierlDCd store AJ Ptiocmx. AZ 
Tufbotj^se repltices Sj7.000<iif condilioning applicalion AB. Alion, NH 
Uniil you have Turtjobasc you don'; hctve a daiahasi'i Acom U^ers Group 



Micromiser is looking for resellers, If you have 2 DD drives, or an MIO '" , or hard disk. You qual- 
ify for free trai ning, dealer prices, marketing/direct mail help, and myriad customer references 
who express extreme satisfaction with Turbobase. Compare the Turbobase '"/MIO '" configu- 
ration at $830 (all hardware & software except printer) with the IBf^ AT'": Immediate RAM 
access to 6,000 invoices, or 1 5,000 inventory items, or 50,000 G/L records, or 20.000 payroll 
records, or any combination of above! With a hard drive (add only $100) the figures go up! 
4,000 addresses too! An unbeatable selling point: replace any component for the cost of a 
typical IBfyi'" /Apple'" repair bill! The small business market is yours! Jusf ask, *7s IBfA" 
compatibiiity worth $20,000 to you?" 



TURBOBASE '" - the all in one database/business system: 3 databases t word processor 
includes file manager/spread sheet'relational features/accounting report generator. G L, 
P/S, AR, AP. open invoicing/statements, inventory, payroll, mailing, utilities, all truly integrated 
in one program/manual so simplified that we can present complete detailed instructions in 
only 700 f pages of superb documentation (third re-write) includes separate Quick Course 
and Cookbook + 8 disk sides. Runs on any 48K 8-bit Atari, only 1 drive req. Call today! 



ST owners I Ask dibouiU)rrat.)5se ST (B/W mon- 
itor only) all Turbobase features -i- much more 
-I- Ultimate SIMPLICITY and speed 

(407) 857-6014 



MICROMISER SOFTWARE, 1635-A HOLDEN AVE., ORLANDO, FL 32809 
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Turbobase S 1 59-Turbo Ji S99 
For XEP— 80 col. screen: 

Turbobase SO SI 79-Jr 80 SI 19 
w/80 coi word processor aclrd S24 

80COL WORD PROCESSOR $49 
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continued from page 28 

Collision Checking 

So far we've seen all of PMOVE's capa- 
bilities as far as moving things around is 
concerned. But PMOVE also has the abil- 
ity to check for specific types of collisions 
between the missiles and the rest of the 
screen. This means that you can have 
PMOVE check for a collision between mis- 
sile 1 and player 2, for example, and when 
one occurs it will set a flag and stop the 
missile. If missile 1 collides with player 3, 
however, nothing will happen. The same 
idea holds for missile to playfield col- 
lisions. 

1712-1715: Are used to specify the missile 
to playfield collisions that you want 
PMOVE to watch out for. 

Now the question is, how? A while back, 
before any of this PMOVE stuff, we talked 
about the collision registers, and how four 
different collisions could be stored in one 
location. Remember? If not, go back and 
review for a second. Locations 1712-1715 
are set up in exactly the same manner as 
the collision registers. So, for example, if 
you wanted PMOVE to check for collisions 
between missile 1 and playfield 2 and 3, 
you would POKE 1713,6. As I said, go back 
and reread the section on the collision 
registers if you don't understand why. 

Incidentally, when PMOVE encounters 
one of the collisions you told it to look for, 
it will turn off the missile and set the cor- 
responding location here to 255 so you 
know what kind of collision occurred. If 
you were looking for more than one colli- 
sion, you can then check the collision 
register itself to find out the exact culprit. 

1716-1719: These are the locations for mis- 
sile to player collisions and act in the same 
way as 1712-1715 above. 

1720-1724: Finally, the last of the locations! 
Actually, these four don't really do that 
much. When missile n has a collision that 
you told PMOVE to watch out for, location 

1720 -I- n gets set to 255 (you should set it 
to something else when you first turn on 
the missile). Why even bother with this 
when the corresponding collision location 



gets set to 255 as well (see locations 
1712-1719 above)? Well, it just makes it a 
little easier (and faster) to check for a col- 
lision, since you only have to check one 
place instead of two. 

Whew! Now you can see what I meant 
when I said that there was a little work in- 
volved in getting PMOVE going. Don't give 
up hope though, it isn't really as difficult as 
it looks. To show you what I mean, let's start 
by putting a player on the screen and attach- 
ing it to joystick 0: 

160 FOB BYTE:126 TO 138 

17e READ DDT 

ISe POKE PHB0SE+lB24+ByT 

E,DflT 

198 NEXT BVTE 

288 POKE 54279, PBiPOKE 5 

59,62:P0KE 53277,3 

281 POKE 1664,8!P0KE 166 
5,255:P0KE ie6e,255:P0KE 

1667,255 

282 POKE ie68,49!P0KE 16 
72,20B:POKE 1676,34!P0KE 

1688,221 

283 POKE ie84,128:P0KE 1 
688,128 

285 X=USR(PHBASE,PB,PB] 

218 POKE 53248,128 

228 POKE 784,72 

1880 DATA 153,189,255,18 

9,153 

These lines should be added to the combi- 
nation of the previous two examples. Here's 
an explanation of what these lines are doing: 

160-190: Set up the player. 

200: Turn on PMG. 

201: Connect player to joystick and turn 
off the other players. 

202: Set up the left, right, top and bottom 
boundaries, respectively. 

203: Tell PMOVE the initial horizontal and 
vertical positions. 

210: Position the player horizontally. 

220: Color the player. 

That's fairly simple, isn't it? Now let's give 
the program the ability to fire a missile. We'll 
complicate things a little by firing the mis- 
sile in the direction the joystick is moved 
when the fire button is pressed. This will 
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slow things down a little, but it is a handy 
thing to know how to do. 



238 IF PEEK(1700)=1 OR 5 

TRIGCe]=l THEN 238 

235 DIR=5TICK(8)!lF DIR= 

15 THEN 238 

248 K=USRCCIDR(MISCLR$],P 

MBfi5E+768,255,252) !PP05= 

PEEK(1688} 

258 POKE PMBft5E+768+PP05 

-1,3!P0KE PMBftSE+768+PPO 

5,3!P0KE PMBfi5E+768+PP0S 

+1,3 

268 POKE 169e,PP0S!P0KE 

1692|PEEK(1684}+2:P0KE 5 

3252, PEEK (1692) 

278 POKE 1704,8 

288 IF DIR<12 THEN POKE 

1784,128 

298 IF DIR<8 THEN POKE 1 

784,1 

388 POKE 1788,8 

318 IF DIR/2=INT(DIR/2J 

THEN POKE 1708,128!GOTO 

338 

328 IF DIROll OND DIRO 

7 THEN POKE 1788,1 

330 POKE 1788,1 

340 GOTO 230 



Add these lines to the program above. They 
won't work by themselves. List the resulting 
program to disk. 

We need a special routine to clear a mis- 
sile, since we only want to clear two bits in 
each byte. Here's the program to generate 
Line 105 for you to do this. Type New, then 
run this, type New again, move cursor to Line 
105 and press Return ENTER above saved 
program. 



100 GRAPHICS 8 

118 PRINT "105 DIM MI5CL 

R$(26] :NISCLR$=";CHR$C34 

); 

128 FOR L00P=1 TO 26 

138 READ DOT 

148 PRINT CHR$(27]JCHR$C 

DOT); 

158 NEKT LOOP 

178 PRINT CHR$(34] 

1888 DATO 104,104,133,28 

7,184,133,286,104,184,16 

8,184,104,133,288,177,28 

6,37,288,145,206,136,192 

,255,288,245,96 



PMBASE+384 for double-line resolution. 
RES tells what kind of resolution is being 
used and is equal to 255 for single-line and 
127 for double. Finally, MASK is used to 
specify which missile you want to clear and 
has one of the following values: 

MISSILE 0: 252 
MISSILE 1: 243 
MISSILE 2: 207 
MISSILE 3: 63 

As a final example, we'll create a program 
that will move player around automatical- 
ly, without having it attached to a joystick. 
Just add these lines to our spaceship program: 

281 POKE 1664,43:P0KE 16 

65,255!P0KE 1666,255!P0K 

E 1667,255!P0KE 675,18 

221 IF PEEK(1688):PEEKC1 

688) OR PEEKC1688)=PEEKC 

1676) THEN POKE 675,5+5* 

CPEEK(575):5) 

238 IF PEEKC17ee)=l OR S 

TRIGC0]=1 THEN 221 

235 DIR=5TICKt8)!lF DIR= 

15 THEN 221 

348 GOTO 221 

Once again, the explanation: 

201: By POKEing 1664 with a 43, we con- 
nect player to a nonexistent joystick that we 
can give our own direction value to. See the 
previous explanation to locations 1664-1667 
for more details. We then set location 675, 
our nonexistent joystick, to 10, which cor- 
responds to left and up. 

221: We now check to see if the player has 
reached either its upper or lower limit and, 
if it has, change its direction. 

230: The only change here is the line num- 
ber after the THEN statement. 

235: Again, only the line number after the 
THEN statement has been changed. 



Now here's how MISCLR$ is used: 



340: One more line-number change. 



K=USRCODRCNISCLR$),NISBA 
SE, RES, MASK) 

MISBASE is the address of the beginning 
of the missile area. It's equal to 
PMBASE+768 for single-line resolution, and 



Congratulations! You now have more con- 
trol over PMG than most other BASIC 
programmers. Hopefully PMOVE will help 
you create the programs you've always wanted 
to create but haven't been able to because 
BASIC has been too slow for PMG. d 
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continued from page 31 

284B DClTfl 173,10,218,41,2,178,153,43,6 

,173,18,219,41,7,224,2,4709 

2850 DflTfl 240,9,24,185,25,153,25,6,76, 

143,76,24,185,156,153,25,4493 

2868 DATA 6,149,197,161,197,281,0,248, 

25,159,8,153,25,6,198,195,8768 

2878 DflTfl 165,195,281,8,288,282,173,18 

,218,41,7,24,185,1,153,69,5814 

2888 DflTfl 6,96,238,184,159,1,129,197,9 

6,154,183,32,91,76,136,288,358 

2898 DflTfl 258,158,4,185,51,6,281,8,248 

,5,136,288,245,76,258,75,1488 

2988 DflTfl 185,17,6,281,8,248,243,24,12 

1.154,78,162,8,192,3,144,7654 

2918 DflTfl 2,152,2,149,197,161,197,281, 

e, 288', 223, 181, 197, 153, 61, 6, 1195 

2928 DflTfl 138,153,248,76,235,77,65,6,1 

85,158,78,129,197,76,288,76,9932 

2938 DATA 165,216,281,8,248,3,76,143,7 

7,162,5,168,3,196,176,176,9551 

2948 DATA 7,288,288,288,282,76,7,77,13 

4,216,168,4,198,65,6,185,8482 

2958 DflTfl 61,6,149,197,161,197,217,162 

,78,144,14,169,8,153,61,6,6465 

2968 DflTfl 153,65,6,136,288,238,76,143, 

77,217,166,78,176,3,76,37,7492 

2978 DflTfl 77,217,178,78,248,28,192,3,1 

76,8,24,185,1,129,197,76,6137 

2988 DflTfl 45,77,56,233,1,129,197,76,45 

,77,169,8,129,197,185,61,8265 

2998 DflTfl 6,24,121,154,78,198,65,6,281 

,288,144,3,32,38,78,149,5715 

3888 DflTfl 197,161,197,281,8,248,3,76,3 

7,77,138,153,65,6,181,197,8236 

3818 DflTfl 153,61,6,185,166,78,192,3,17 

6,5,129,197,76,45,77,24,5235 

3828 DflTfl 185,3,76,132,77,169,8,133,19 

2,173,4,288,281,8,248,6,8657 

3838 DflTfl 141,8,6,32,162,79,1-73,12,288 

,281,8,248,6,141,8,6,4818 

3848 DflTfl 32,162,79,173,5,288,281,8,24 

8,6,141,1,6,32,233,79,6873 

3858 DflTfl 173,13,288,281,8,248,6,141,1 

,6,32,233,79,168,8,185,6731 

3868 DATA 8,288,281,8,248,74,74,72,144 

,18,32,75,79,169,8,129,5814 

3878 DflTfl 197,162,18,134,222,32,187,88 

,169,25,133,191,184,74,144,38,7538 

3888 DflTfl 32,76,236,77,231,78,79,161,1 

97,281,75,176,29,56,233,71,256 

3898 DflTfl 178,189,151,78,72,169,8,157, 

18,6,184,166,193,129,197,162,221 

3188 DATA 58,134,222,32,187,88,169,25, 

133,191,238,192,159,8,153,18,9283 

3118 DATA 6,153,6,6,288,192,1,248,178, 

168,8,185,8,288,74,72,8171 

3128 DATA 144,28,192,1,288,24,165,185, 

74,176,19,148,8,6,32,162,5198 

3138 DATA 79,168,1,162,258,134,222,32, 

187,88,169,25,133,191,184,74,9113 

3148 DATA 72,144,27,192,8,288,23,165,1 

85,74,74,176,17,148,1,6,4781 

3159 DATA 32,233,79,162,258,134,222,32 

,187,88,169,25,133,191,184,74,9466 

3168 DATA 72,144,41,169,8,141,16,8,141 

,12,6,141,14,6,133,186,3789 

3178 DATA 153,6,6,153,18,6,162,188,134 

,222,32,187,88,169,25,133,6956 

3188 DATA 191,162,8,138,157,8,62,282,2 

88,258,238,192,184,74,144,41,1492 

3198 DflTfl 169,8,141,17,6,141,13,6,141, 

15,5,133,187,141,7,6,2552 

3288 DATA 141,11,6,162,188,134,222,32, 

187,88,169,25,133.191,162,8,7898 

3218 DflTfl 138,157,8,63,282,288,258,238 

,192,288,192,1,288,3,76,33,28 

3228 DflTfl 78,165,192,281,8,248,8,141,3 

8,208,165,28,281,16,176,3,7586 

3230 DflTfl 76,15,79,169,8,133,28,173,23 

1,58,281,16,248,6,286,231,1523 

3248 DATA 58,76,232,78,227,79,15,79,17 

3,238,58,281,16,248,11,286,748 

3258 DATA 238,58,169,25,141,231,58,76, 

15,79,165,176,281,15,176,2,7655 

3268 DflTfl 238,176,32,246,69,169,25,141 

,230,58,141,231,58,173,238,58,2231 

3278 DflTfl 281,16,240,3,76,35,79,173,22 

3,58,201,16,208,3,76,214,9062 

3280 DflTfl 81,162,2,189,5,6,281,47,144, 

21,281,284,176,17,189,7,7929 

3290 DflTfl 6,281,67,144,18,281,223,176, 

6,282,288,231,76,28,73,169,1813 

3388 DATA 8,157,9,6,157,5,6,75,59,79,1 

69,0,153,10,6,230,4209 



33i0 DflTfl 192,185,6,6,56,233,47,162,8, 

201,8,144,7,56,233,8,5541 

3328 DflTfl 232,76,91,79,134,194,185,8,6 

,55,233,64,162,8,281,8,6588 

3338 DflTfl 144,7,55,233,8,232,76,112,79 

,134,195,224,18,176,21,169,9945 

3348 DflTfl 8,133,193,165,194,224,8,248, 

6,24,185,28,282,288,250,166,2712 

3350 DflTfl 193,149,197,96,169,2,133,193 

,138,55,233,18,178,76,133,79,9156 

3360 DflTA 230,192,165,185,74,175,58,16 

9,8,133,224,133,191,174,223,58,2975 

3370 DATA 224,15,248,44,282,142,223,58 

,165,185,9,1,133,185,172,2,8785 

3388 DflTfl 6,162,8,169,8,153,8,68,136,2 

82,288,249,141,4,6,174,9091 

3390 DflTA 223,58,224,16,240,10,169,100 

,141,8,5,169,138,141,2,6,4851 

3480 DATA 96,169,228,79,223,80,100,141 

,0,6,96,230,192,165,185,74,898 

3418 DflTfl 74,176,58,169,8,133,224,133, 

191,174,238,58,224,16,248,44,2329 

3428 DflTfl 282,142,238,58,165,185,9,2,1 

33,185,172,3,5,162,8,169,7811 

3430 DflTA 8,153,0,61,136,282,208,249,1 

41,5,6,174,238,58,224,16,315 

3448 DATA 248,18,159,156,141,1,6,169,1 

38,141,3,6,96,169,156,141,7831 

3458 DflTA 1,6,96,165,185,74,144,28,173 

,223,58,281,17,144,13,173,8985 

3458 DATA 132,2,281,8,288,6,165,185,41 

,2,133,185,165,177,281,2,9552 

3478 DflTfl 288,26,165,185,74,74,144,28, 

173,238,58,281,17,144,13,173,9134 

3488 DflTfl 133,2,281,8,288,6,165,185,41 

,1,133,185,96,72,152,72,7681 

3498 DflTfl 281,1,248,45,168,6,132,221,1 

65,176,72,185,282,58,201,25,1231 

3500 DflTfl 176,36,185,1,153,282,58,192, 

12,248,78,192,2,248,48,164,178 

3518 DflTfl 221,282,288,231,166,222,198, 

176,288,225,184,133,176,184,168,184,54 

29 

3520 DflTfl 96,150,16,76,116,88,169,16,1 

53,282,58,192,11,248,3,136,8722 

3538 DflTfl 288,201,164,221,76,121,88,15 

8,0,185,223,58,201,25,240,14,248 

3540 DflTA 24,185,1,153,223,58,169,252, 

133,227,159,8,133,238,76,141,2722 

3558 DATA 88,168,15,76,183,88,165,218, 

281,8,248,1,96,165,28,281,128 

3568 DflTfl 4,248,224,88,219,81,9,281,8, 

240,5,281,12,248,1,96,8294 

3578 DflTfl 169,1,133,218,165,185,74,72, 

176,9,162,1,168,8,134,222,9151 

3588 DflTfl 32,187,88,184,74,176,9,162,1 

,168,1,134,222,32,187,88,6714 

3598 DflTfl 95,162,4,189,17,6,281,8,248, 

6,282,288,246,76,35,81,9327 

3588 DflTA 189,129,78,157,17,6,76,28,81 

,165,176,281,4,144,82,173,8491 

3618 DflTfl 22,6,281,8,288,12,173,24,6,2 

81,2,248,5,159,188,141,7915 

3628 DflTfl 22,6,165,176,281,7,144,57,17 

3,23,6,281,8,288,18,169,7395 

3638 DflTfl 99,141,23,6,169,2,141,25,6,1 

62,8,189,12,6,281,8,3345 

3648 DflTfl 288,28,159,72,157,14,6,169,1 

28,157,12,6,169,1,149,186,7294 

3558 DflTA 141,2,288,141,3,288,232,224, 

2,176,6,165,176,281,18,175,1554 

3668 DATA 218,96,169,255,141,252,2,165 

,198,72,159,251,133,198,165,176,6129 

3678 DATA 72,169,1,133,176,169,8,174,1 

8,6,172,11,6,141,18,6,2373 

3688 DflTfl 141,11,6,173,31,208,201,6,28 

8,7,184,133,176,184,76,155,9457 

3598 DflTfl 72,281,7,176,7,184,133,176,1 

84,76,67,71,173,121,2,281,8361 

3700 DflTfl 15,248,3,76,199,81,173,128,2 

,281,15,248,214,142,18,6,8249 

3718 DflTfl 148,11,6,184,133,176,184,133 

,198,76,76,73,168,8,185,283,184 

3728 DflTfl 58,217,228,81,45,82,213,57,1 

44,7,288,25,288,192,6,144,9496 

3738 DATA 241,168,8,185,213,58,217,213 

,57,144,41,288,25,288,192,6,668 

3748 DATA 144,241,76,25,82,168,5,185,2 

82,58,153,212,57,153,126,65,28 

3758 DATA 136,288,244,76,231,81,168,6, 

185,212,58,153,212,57,153,125,2271 

:?768 DATA 65,136,288,244,168,6,185,282 

,58,153,156,65,185,212,58,153,2683 

3778 DflTfl 166,55,136,288,241,76,67,71, 

226,2,227,2,179,78,8,8,5886 p 
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Attention 
Programmers! 



ANALOG Computing is interested in programs, articles, and software review sub- 
missions dealing with the Atari home computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl- 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form. Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub- 
lication, the articles and/or programs will remain the property of the author If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number 



Send your programs and articles to: 

ANALOG Computing 

P.O. Box 1413-M.O. 

Manchester, CT 06040-1413 



continued from page 16 
used for this purpose (see locations 832 to 
959), along with two separate cursors. 

You should look at SWPFLG (123) for ad- 
ditional information about locations 656 to 
667. 
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TXTROW 
656 



0290 



The row that the text-window cursor is 
currently in. Because there are only four 
rows in the text window, TXTROW ranges 
from zero to three. 

TXTROW is the text window equivalent 
of ROWCRS at location 84. 



TXTCOL 

657,658 



0291,0292 



The column that the text-window cursor 
is currently in. There are 40 columns in 
the text window, so TXTCOL can range 
from to 39. "Ah, ah," you say. Thai 
means location 658 never gets used (since 
it's only needed when the column number 
is greater than 255). This is true under 
normal circumstances, but if you change 
the text window to be something other than 
GRAPHICS 0, you may need it. 



TINDEX 
659 



0293 



While we're on the subject of changing 
the text-window graphics mode, TINDEX 
tells the OS what graphics mode the text 
window is (also see DINDEX at location 
87). If you decide you'd like a different text 
window, you'll have to change the display 
list as TINDEX. Use the program for lo- 
cation SDLSTL (560,561) to look at the dis- 
play list and see where the text window is. 
I won't go over it here because for most 
uses, you'll probably just want to mix 
graphics modes. If that s not the case, 
however, it's easy to figure out how to make 
the necessary changes. Just look for the 
CHR 2 commands at the end of the dis- 
play list. See location 559 for more infor- 
mation. 



TXTMSC 
660,661 



0294,0295 



The address of the upper left-hand cor- 
ner of the text-window screen memory. See 
SAVMSC (88,89) for the address of regu- 
lar screen memory. 



TXTOLD 

662-667 



0296-029B 



Check out locations 90 through 95, 
okay? These six locations are the text win- 
dow equivalent, so I won't bother explain- 
ing them again. 



TMPXl 
668 



029C 



This, along with the next three locations, 
is used for temporary storage. They are used 
in one or more of the computer's routines as 
a place to store information during the rou- 
tine. Once the routine is over, the values in 
them are no longer meaningful. 

TMPXl, in case it wasn't clear, is a tem- 
porary location. 



H0LD3 
669 



029D 



A temporary location (the location isn't 
temporary, its usage is). 



SUBTMP 




670 


029E 


Another 


temporary location. 


H0LD2 




671 


029F 


And yet 


another temporary location. 


DMASK 




672 


02A0 



54 



Way, way back at location SHFAMT (111), 
we had a little discussion about masking and 
making changes to individual pixels in the 
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graphics modes. Remember? Well, go back 
and refresh your memory anyway. 

DMASK holds the mask for the pixel that 
we want to make changes to. Somewhere way 
up near the end of the OS ROM, there is a 
list of all the possible masks. The display han- 
dler decides which one is needed and loads 
it into DMASK. Figure 1 has the different 
values DMASK can have, as well as the 
graphics modes they are used with. 

By way of explanation, the "Is" are used 
to look at individual bits and the "Os" to ig- 
nore them. 

Now why, you may ask, do we need more 
than one mask for most graphics modes? 
Graphics modes need anywhere from one to 
eight bits to represent a character or a pixel. 
Suppose a particular mode, such as mode 9, 
needs four bits per pixel. That means that 
each byte holds two different pixels, right 
(since a byte is eight bits)? So we need two 
masks to be able to mask out either pixel. 
This may be a little confusing to you, but 
don't worry. Unless you're programming in 
machine language, it's something that is nice 
to know, but that you'll never need. 



iinmi 


tor modes zero, one. and two. 


11110000 


for modes nine, ten, and eleven. 


00001111 




n 000000 




00110000 


(or modes three, five, and seven. 


00001100 




00000011 




10000000 




01000000 




00100000 




00010000 


(or modes four, six. and eight. 


00001000 




00000100 




00000010 




00000001 





Figure 1: DMASK bit chart 

TMPLBT 

673 02A1 

More temporary storage space. 



When the Esc key is pressed, ESCFLG is 
set to 128, and the next key pressed gets an 
Esc flag attached to it (for example, press- 
ing Esc twice would cause the second Esc to 
print a special character on the screen). Af- 
ter the next key has been pressed ESCFLG 
is reset to zero. 

ESCFLG is initialized to zero. 



TABMAP 

675-689 



02A3-02B1 



ESCFLG 
674 



02A2 



TABMAP tells the OS what columns to 
move the cursor to when the Tab key is 
pressed. 

When the Tab key is pressed, the cur- 
sor is moved to the next column, after the 
one the cursor is on, that has a tabstop. 
What's a tabstop? It's nothing more than 
a flag saying, "Hey, Tab, stop here, okay?" 
TABMAP is where these tabstops or flags 
are kept. Since you can set a tabstop on 
any one of the 120 columns in a logical line, 
TABMAP is 15 bytes long. What? How do 
you get 120 from 15? Well, since the tab- 
stop for each column is either turned on 
or turned off', we only need one bit for each 
column. Fifteen bytes times eight bits per 
byte equals 120. Oh! 

How do you set the tabstops? From BAS- 
IC, all you have to do is use the TAB-SET 
(Shift-Tab) and TAB-CLR (Control-Tab) 
keys. From within a program, however, 
you must change TABMAP yourself. To do 
this, start with 120 zeroes on a piece of 
paper. These represent the 120 columns, 
numbered from on the far left to 119 on 
the far right. Now change the zeroes to 
ones in the columns where you want your 
tabstops. So far so good. The next step is 
to break the 120 digits into groups of eight 
and convert them to decimal. See the sec- 
tion on bits and bytes for help in doing this. 
The last step, now that you have 15 decimal 
numbers, is to POKE these numbers into 
TABMAP. You now have your own cus- 
tomized Tab settings. 

What restores TABMAP to its original 
values? Pressing System Reset or using a 
GRAPHICS command (OPENing S: or E: 
as well). What are its original values? A 



value of one in every byte. That translates 
to tabstops at 7, 15, 23, 31, ... 119. 

A few final words. TABMAP works in 
graphics mode and in text windows only. 
Also, the left edge of the screen will always 
to be a tabstop, whether you set it to be 
or not. 



LOGMAP 
690-693 



2B2-2B5 



When you're writing or editing your BAS- 
IC program, the screen editor needs to know 
where each logical name begins. Why? Just 
so that it can make sense out of what's on the 
screen. Remember, a program listing on the 
screen may make sense to you, but to the 
computer it's just a bunch of bytes in memory. 
With the help of LOGMAP, at least it knows 
on what row of the screen a program line 
begins. 

LOGMAP works in much the same way as 
the preceding TABMAP. There are 24 rows 
in a GRAPHICS screen, so there are 24 
bits in LOGMAP Actually, there are 32 bits 
(four bytes), just the last byte doesn't get 
used. The first byte handles rows through 
7, the second handles 8 through 15, and the 
third handles 16 through 23. If a logic line 
begins on a certain row, then the correspond- 
ing bit is set to one. If the row is part of a 
previous logical line, then the bit is set to 
zero. 

All the bits in LOGMAP are set to one 
when the computer is first turned on. Sys- 
tem Reset is pressed, a GRAPHICS com- 
mand is used, the text screen is OPENed, or 
the text screen is cleared. This is because all 
the lines are blank, and therefore considered 
to be the start of a logical line. 

TABMAP is updated when you first enter 
a logical line (with the Return key), edit a 
line, delete a line or insert a line. Under all 
these circumstances, the position of the log- 
ical lines on the screen will be altered, thus 
the need for updating. 



INVFLG 
694 



02B6 



INVFLG works similarly to ESCFLG 
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except it keeps track of the inverse video 
key (the Atari logo key) instead of the Esc 
key. It is initialized to zero, which means 
that all the characters you type in will be 
normal. But when you press the inverse 
video key, INVFLG gets set to 128, and 
characters that you type now will appear 
in inverse video (black on white instead of 
white on black). Pressing the inverse video 
key again will restore INVFLG to zero and 
get things back to normal. 

You should be aware that changing 
INVFLG will only affect characters that 
are typed in after you change it. That 
means that you can't use it like this: 



POKE e94,128!PRINT 
R5E?" 



'INUE 



Machine-language programmers might 
be interested to know that INVFLG is al- 
ways XORed with the character value, 
regardless of INVFLG 's value (this should 
tell you that the value for an inverse video 
character is just that for a regular charac- 
ter with bit seven set, i.e., the regular value 
plus 128). This means that you can have 
fun with the keyboard by POKEing 
INVFLG with something other than zero 
or 128. Try it, it's fun! 



FILFLG 
695 



02B7 



If FILFLG is not equal to zero, then we're 
in the middle of a FILL. 



TMPROW 
696 



02B8 



A temporary storage place for the value in 
ROWCRS (84). 



TMPCOL 
697,698 



02B9, 02BA 



More temporary storage, this one for the 
value in COLCRS (85,86) 



SCRFLG 
699 



02BB 



This one is somewhat complicated. First 
of all, it keeps track of how many physical 
lines (as compared to logical lines) have been 
scrolled off the top of the screen. If you keep 
pressing Return, it will eventually count up 
to 255 and then wrap back around to zero. 
No problem so far. According to the OS list- 
ing, however, it is also used during the 
character insertion process (when you press 
Shift-Insert). Apparently, if you insert a 
character, SCRFLG gets set to zero. If the 
insertion caused the screen to scroll up, then 
the number of lines it scrolled (which de- 
pends on how long the logical line at the top 
of the screen was, so it could be from one 
to three) is stored in SCRFLG. The value in 
SCRFLG is then used to reposition the cur- 
sor, leaving SCRFLG with a final value of 
255. 



H0LD4 
700 



02BC 



H0LD4 is used to temporarily hold the 
value of ATACHR (763) during the FILL 
routine. 



HOLD5 
701 



02BD 



An unidentified storage location. 



SHFLOK 

702 



02BE 



When SHFLOK is set to 0, all text typed 
in will be in lowercase. Set it to 64, and all 
text will be in uppercase. Finally, 128 will 
give you all control and graphics 
characters. 

The following key combinations affect 
SHFLOK: 

Caps/Lowr sets it to zero. 
Shift-Caps/Lowr sets it to 64. 
Control-Caps/Lowr sets it to 128. 

In addition, POKE in 192 and only num- 
bers and punctuation will be recognized if 
pressed. Finally 255 in this location will not 
allow any letters at all to be recognized. 
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Remember that these two POKEs work on 
input from the keyboard only. You can still 
write letters to the screen or printer. This 
means their practical use is to prevent in- 
puts you don't want. 

Note that SHFLOK does not indicate 
whether or not the Shift or Control keys 
are pressed. 

SHFLOK is initialized to 64. 



BOTSCR 

730 



02BF 



BOTSCR tells how many lines of text are 
available for use by the screen editor. What 
does this mean? Well, it can use all 24 lines 
in graphics mode 0, so BOTSCR would 
have a value of 24. In a mode with a text 
window, there are four lines in the text win- 
dow that it can use, so BOTSCR would 
have a value of four. In all other modes 
there are none, so BOTSCR has a value of 
zero. "What about graphics modes 1 and 
2?" you say. In these modes the screen edi- 
tor takes care of the text window, while the 
display handler takes care of the rest (at 
least in terms of PRINTing text, which is 
what we're really talking about here). 

Try the following program: 

100 GRAPHICS e 
110 POKE 703,4 
120 FOR R0M=8 TO 19 
130 POSITION 2,R0U 
140 PRINT S6;"Me have to 
print «6 up here" 
150 NEXT ROM 

160 PRINT "But now we ha 
ve a tert window here!" 
170 PRINT 
188 GOTO 160 



Color 

The next nine locations, 704 through 712, 
are called "color registers." This is just a fan- 
cy way of saying that they tell ANTIC what 
colors to put on the screen. How do you con- 
vert a color into a number that you can store 
here? The Atari has a total of 16 colors that 
you can choose from, and each is assigned 
a number. The exact colors vary slightly from 
television set to television set, so it's difficult 
to describe them exactly. Bear that in mind 
when you consult the chart in Figure 2. 
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COLOR 


VALUE 


COLOR 


VALUE 


Black 





Blue 


8 


Rust 


1 


Deep blue 


9 


Reddish orange 


2 


Dull blue 


10 


Darx orange 


3 


Olive green 


11 


Red 


A 


Green 


12 


Purplish blue 


5 


Dark green 


13 


Cobalt blue 


6 


Orangey green 


14 


Ultramarine 


7 


Orange 


15 



Figure 2. Color value chart 

Okay, now somewhere in the back of your 
mind you're probably thinking. Wait a 
minute, aren 't there supposed to be 256 pos- 
sible colors on the Atari? Yes and no. There 
are only 16 colors, but there are also 16 
shades of each color, resulting in a total of 
256 (26 times 16) possible "colors." That's 
not even true either. Even though you can 
specify a brightness value from to 15, and 
1 will be the same brightness, as will 2 and 
3 and so forth. That gives us a true total of 
128: 128 combinations of color and bright- 
ness, however, will be more than you need, 
or can use at one time. 

So now we have a color value and a bright- 
ness value. Since each color register is only 
one byte, we're obviously going to have to 
somehow combine these two values together. 
If you're familiar with hexadecimal, you will 
probably know how already. Recall that in 
hexadecimal, each byte has two digits, each 
of which can have a value from to F (15). 
All we do to combine our color and bright- 
ness is have the first digit be the color, and 
the second the brightness. If you're using 
decimal, you want to multiply the color value 
by 16 and add the brightness. That's how you 
figure out the value to POKE into the ap- 
propriate color register (you can also use the 
SETCOLOR command for the playfield 
registers). 



PCOLRO 

704 



O2C0 



This is the color register for player and 
missile 0. It is also used to hold the back- 
ground color in GTIA mode 10. 

The SETCOLOR command will not work 
on this or any of the next three locations. 

PCOLRO is a shadow register for COL- 
PMO at location 53266. 



PCOLRl 

705 



02C1 



The color register for player 1 and missile 
1. It is a shadow register for COLPMl at lo- 
cadon 53267. 



PC0LR2 
706 



02C2 



The color register for player 2 and missile 
2. It is a shadow register for C0LPM2 at lo- 
cation 53268. 



PC0LR3 

707 



02C3 



The last player/missile color register, this 
time for player 3 and missile 3. It is a shadow 
register for C0LPM3 at location 53269. 



COLORO 

708 



02C4 



Lots of information for this guy. This is the 
color of playfield 0. It is also called color 
register 0, is a shadow register for COLPFO 
at location 53270, specifies the color of up- 
percase letters in graphics modes 1 and 2, 
and can be set by the BASIC SETCOLOR 
command (as can the next four locations). 
Whew! 



COLORl 
709 



02C5 



This holds the color value for playfield 1, 
is called color register 1, is a shadow register 
for COLPFl at location 53271, and specifies 
the color of lowercase letters in graphics 
modes 1 and 2. 

COLORl is also used to specify the bright- 
ness of the characters in graphics mode 0, and 
of the pixels in the graphics mode 8. As you 
know, you can only draw with one color in 
graphics mode 8, right? Well, not quite. 
Through a process called "artifacting," you 
can get up to four. 

Briefly, because the pixels are so small in 
graphics mode 8, a pixel in an odd-numbered 
column will have a different color than one 
in an even-numbered column. Don't ask why, 
just try the following program: 



100 GRAPHICS 8 
110 COLOR 1 
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128 FOR C0L=1B TO 20 STE 

P 2 

138 PLOT COL, IB 

148 DRAUTO COL, 20 

150 NEXT COL 

160 FOR C0L=31 TO 41 STE 

P 2 

170 PLOT COL, IB 

188 DRAMTO C0L,2B 

198 NEKT COL 

Voila! Two new colors. But how do we get 
the regular white, and where does the fourth 
color come from? You know, you ask a lot 
of questions. If we plot an even-numbered 
column and then the following odd-numbered 
column, we get white. If, on the other hand 
we plot an odd-numbered column and then 
the following even-numbered one, we get the 
fourth color. Make sure you understand the 
difference between the two. Add the follow- 
ing lines to the preceding program: 



288 FOR C0L=5e TO 68 STE 

P 4 

218 PLOT C0L,16!DRaMTO C 

0L,20 

220 PLOT COL+l,lB!DRfiMTO 

COL+1,20 
238 NEXT COL 

248 FOR C0L=71 TO 81 STE 
P 4 

25B PLOT C0L,10!DRaMT0 C 
0L,28 
260 PLOT C0L+1,1B!DR0NT0 

C0L+1,2B 
270 NEXT COL 



Doing things this way kind of restricts you 
in the way you plot and draw, but it does give 
you more colors. You should also note that 
the CTIA and GTIA chips switch the odd and 
even colors on the screen. This usually makes 
red on one computer look like green on 
another. Also, the colors you do get will de- 
pend on the values in COLORl and 
C0L0R2 (following). 



C0L0R2 

710 



02C6 



COLORS 

711 



02C7 



Okay, you should be getting the hang of this 
by now. This is the same as C0L0R2, but 
with threes instead of twos. It's also the color 
of inverse lowercase letters in graphics modes 
1 and 2. 



C0L0R4 

712 



02C8 



Same as the preceding but for the back- 
ground color. It is a shadow register for 
COLBK at location 53274. Don't forget that 
in GTIA modes, PCOLRO (704) is the back- 
ground color, while C0L0R4 is just a regu- 
lar color register. 



''"his holds the color value for playfield 2, 
is called color register 2, is a shadow register 
for C0LPF2 at location 53272, and specifies 
the color of inverse uppercase letters in 
graphics modes 1 and 2. 

In graphics modes and 8, C0L0R2 
specifies the background color. 



Noname 
713-735 



02C9-02DF 



These 23 are currently unused. 

The following four bytes, from 736 to 739, 
are used by DOS. That means that they are 
unused if you are not using DOS. 



RUNAD 

736,737 



02E0,02E1 



When you load a binary load file from 
DOS, sometimes it will run automatically 
and sometimes it won't. What makes the 
difference? If the binary load file stores an 
address in RUNAD, then DOS will JSR 
to that address after the file has been load- 
ed. Otherwise, the DOS menu will stay on 
the screen. See your DOS manual for more 
information under the sections on binary 
loading and saving. 



INITAD 

738,739 



02E2,02E3 



Whoops! I lied slightly in the last loca- 
tion. If a binary load file alters INITAD, 
then DOS immediately JRSs again to 
the address in INITAD before continuing 
to load the file. You can use this to do stuff 
like put a message or picture on the screen 
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while the rest of the file is loading. Make 
sure that the routine whose address you're 
putting in EWTAD ends with an RTS. Also, 
if you want DOS to return to the menu af- 
ter executing the RUNAD routine, make 
sure it ends with an RTS instruction. 

So where was the lie? If you don't end 
the INITAD routine with an RTS instruc- 
tion, the RUNAD routine will never be ex- 
ecuted (and you may run into problems 
with future disk I/O). 



MEMLO 

743,744 



02E7,02E8 



RAMSIZ 
740 



02E4 



RAMSIZ has a similar function to 
RAMTOP (106), so go back and read up 
on RAMTOR The main difference is that 
RAMSIZ doesn't cause the screen memory 
to move when you change it and do a 
graphics call. Experiment to see how it 
works. 



MEMTOP 

741,742 



02E5,02E6 



MEMTOP holds the address of the last 
free memory location. This does not mean 
the top of RAM. Why not? You're forget- 
ting that the screen memory and display 
list are put at the end of RAM. MEMTOP 
is the last location that is unused, and is 
therefore the location right below the dis- 
play list. Originally, however, before any 
graphics mode is set up, it does hold the 
same address as RAMSIZ. 

Anything that results in the display han- 
dler changing the screen memory and dis- 
play list also results in MEMTOP getting 
changed. That means System Reset, the 
GRAPHICS command and OPENing the 
screen. 

For more information on MEMTOP's 
use (yes, I'm going to send you somewhere 
else again), see APPMHI at locations 14 
and 15. 

MEMTOP is called HIMEM by BASIC, 
since BASIC has its own MEMTOP at lo- 
cations 144 and 145. 
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Since we have a pointer to the top of free 
memory, it only makes sense to have one 
to the bottom of free memory. MEMLO 
holds the address of the first byte in RAM 
that is available for your use. Notice that 
BASIC uses a different pointer for the first 
free byte, called LOMEM (128,129). 
Although some sources imply otherwise, 
MEMLO and LOMEM seem to always 
contain the same value, which is not 
touched by the OS after the power-up rou- 
tine is done. 

The first free location in memory is 
usually at 1792. If you're using DOS, 
however, DOS needs some extra space for 
something called the "FMS buffers" (see 
SABYTE [1801] and DRVBYT [1802]). This 
means that MEMLO will be greater when 
DOS is present by 128 for each buffer. 

Let's talk about reserving memory for 
your own private use. We last discussed 
this at RAMTOP (106), where we saw how 
to reserve memory above screen memory. 
But, alas, this technique wasted up to 800 
bytes because of a problem with scrolling 
the screen. So now we come to the alter- 
native of reserving memory at the other 
end of RAM, below everything else. How 
do we do it? There are two possibilities. 
First of all, you could write an AUTO- 
RUN.SYS file that loads MEMLO with the 
values you want. De Re Atari has an excel- 
lent example of how to do this, but it's ob- 
viously a technique that requires a 
knowledge of machine language. What if 
you're working in BASIC? Well, there's a 
problem. Remember that BASIC also 
keeps a pointer to the bottom of free 
memory. It's called LOMEM, and I have 
mentioned it. If we change MEMLO, we 
also have to change LOMEM. We can do 
this by POKEing both MEMLO and 
LOMEM, but that confuses BASIC be- 
cause it loses some important information 
that it had already stored in the memory 
area you just told it not to look at. That's 
a problem. What happens if you POKE 



MEMLO and then type NEW (NEW 
transfers the value of MEMLO into LOM- 
EM and resets all the program pointers)? 
Nothing bad; in fact it does exactly what 
we wanted. But we still have a problem: 
This method only works when you make 
the changes yourself; it won't work from 
inside a program. As it turns out, and it 
makes sense if you think about it, there is 
nothing you can do from within a BASIC 
program to reserve memory using MEM- 
LO (without destroying the program). This 
means that the MEMLO method of reserv- 
ing memory is only useful if you're 
programming in machine language (or if 
you first boot up an AUTORUN.SYS file 
as described). Sorry folks. 

System Reset will restore MEMLO to its 
original value. The program in De Re 
Atari, as mentioned, uses the System Reset 
vector to make sure that MEMLO does not 
get reset. 

Only NEW (or turning off the computer) 
will restore LOMEM. 



Noname 

745 



02E9 



Currently unused. This is, however, sub- 
ject to change in future versions of the OS. 



DVSTAT 
746-749 



02EA-02ED 



This one is for experts only, so don't ex- 
pect it to sound pretty. When you send a GET 
STATUS command (83) to a device, these 
bytes are set according to the type of device 
and its status ; They seem to be set only by 
the printer handler {not the disk file manager) 
and the RS232 handler. 

Location 746 gives the command status. 
Because it is interpreted differendy for each 
device, you should consult either the OS 
manual or the 850 Interface manual for de- 
tails (this isn't a cop-out on my part; the in- 
formation in this byte is useful only to 
extremely competent machine-language 
programmers). 
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If the GET STATUS is to a printer, loca- 
tion 747 contains the AUX2 byte of the previ- 
ous operation. If it is to a disk drive, location 
747 holds the value of the status byte of the 
disk controller chip (if you really need to 
know more details, find some documentation 
on the INS1771-1 Floppy Disk Controller 
chip). Finally, if it is to the 850 Interface, lo- 
cation 747 could indicate one of two things. 
If concurrent mode I/O is not active, then it 
will hold information regarding the moni- 
tored readiness lines (DSR, CTS and CRX) 
and the data receive line (RCV) of the speci- 
fied port. Please see your 850 Interface 
manual for more details. 

If concurrent mode I/O were active, loca- 
tion 747, in conjunction with location 748, 
will hold the number of characters currently 
in the input buffer. 

For the printer and disk drive, a GET STA- 
TUS command will return the maximum 
time-out value for the device. This value is 
provided by the device controller and is in- 
itialized to 31. A value of 64 here represents 
one second. 

Location 749 is only used for the 850 In- 
terface and only if concurrent mode I/O is 
active at the time of the GET STATUS. In 
that case, it holds the number of characters 
currently in the output buffer. 

If you got this far and you're confused, 
don't worry. By the time you have a need to 
use DVSTAT, it should be easier to under- 
stand. I've been programming the Atari for 
five years and have only recently found a need 
for it. 

CBAUDL, CBAUDH 

750,751 02EE,02EF 

The speed at which programs load in from 
cassette is called the "baud rate," and this is 
what is stored in CBAUDL/H. It's initialized 
to 1484 by the OS, which represents 600 
baud. Unfortunately, sometimes the data on 
the cassette tape is stored a little slower or 
faster than 600 baud. This may be due to the 
speed of the cassette motor, the tape being 
stretched slightly, or other such minor details. 
In any case, at the beginning of each cassette 
record (remember that a record is just a 



bunch of bytes) are two bytes that have alter- 
nating zeroes and ones (01010101; 85). These 
bytes are used to set the baud rate exactly, so 
speed variations can be compensated for. 

AUDF3 (53764) and AUDF4 (53766) are 
used to store the baud rate and do the actual 
timing. 



CRSINH 

752 



02F0 



This one should come as a reward to you 
for trudging tlirough the sludge of the last 
few locations. CRSINH is used to make the 
cursor invisible (and visible again). This 
comes in handy when you've got a message 
or something on the screen, and you don't 
want whoever's reading it to see the cur- 
sor. All you have to do is POKE CRSINH 
with something other than a zero. To make 
the cursor visible again, just POKE it with 
a zero. That's (almost) all there is to it. 

Hold it, what was the "almost" that was 
trying to hide in the parentheses back 
there? Well, there is one tiny thing I for- 
got to mention. The cursor won't disap- 
pear (or reappear) until you move it for the 
first time after you change CRSINH. All 
that means is you have to have a PRINT 
of some kind after the POKE. The easiest 
way around this is just to POKE CRSINH 
before you print anything on the screen. 
For example: 



IQB POKE 752,1 
IIB PRINT 



CRSINH is set to zero when you turn on 
the computer, and also when you press 
Break, press System Reset, use a GRAPH- 
ICS command or OPEN either "S:" or 
"E:". 

Also see CHACT at location 755 for 
another way to tell the cursor to get lost. 

Here is a way to place dots all over your 
screen so that you can check the conver- 
gence of the TV or monitor: 



IB POKE 71B,0!POKE 752,1 
IPOKE 82,B!F0R 1=1 TO 95 
9!? ".";!NEKT I 
20 GOTO 2B 



BO 
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KEYDEL 
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02F1 



characters on the screen. The bits are used 
as summarized in Figure 3. 



A lot of you have probably heard the term 
"debounce" (no, it's not from a commercial 
for French shampoo). Some of you probably 
don't have the slightest idea what it means, 
so let's talk debounce for a bit. 

When you press a key, you're actually 
bringing two little bits of metal together. 
When the two touch, electricity flows through 
them and tells the computer that the key is 
pressed. Sometimes, when the two first hit 
each other, they bounce a little. This has the 
effect that they are touching, then they're not 
touching, and then they're touching again, 
which the computer would normally interpret 
as meaning the key was pressed twice. You 
only pressed it once, however, so somehow 
the computer has to be smart enough to real- 
ize this. The process it uses is called "de- 
bouncing," and it's fairly simple. If a bounce 
occurs, it happens real fast; too fast for you 
to have been able to hit the key twice. So, 
the OS waits a little while after you first press 
the key before looking to see if you pressed 
it again. That way, it doesn't see the bounce. 
KEYDEL tells it how long to wait. 

KEYDEL is set to three whenever a key 
is pressed and then every stage 2 VBLANK 
it's decremented by one. Until it reaches zero, 
the OS will not let the same key be pressed 
again. Unless you can press a key faster than 
20 times a second, this won't be a problem 
for you. 



CHI 

754 



02F2 



CHI is the value of the last key pressed (not 
the current one). When you press a key, the 
OS checks its value (stored in CH [764]) 
against CHI. If they're the same, then KEY- 
DEL is checked to make sure that the key has 
been debounced. If KEYDEL is equal to 
zero, or if the two values aren't the same, then 
the current key code is stored in CHI and the 
OS goes on to process that key. 
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Inverse ctiaracler letters are visible 
inverse character lellers are invisible 
Inverse character backgrounds are visible 
Inverse character baci^grounds are Invisible 
all characters are righl-slde up 
all characters are upside down 



Figure 3. CHACT bit chart 

What does this mean? Try typing some 
inverse characters on the screen (use the 
Atari logo itey). Now POKE 755,1. What 
happened? That's right, the letters disap- 
pear. Try POKE 755,2. This makes the 
background (the solid white part) disap- 
pear. Finally, try POKE 755,3 to make 
everything disappear (everything in the in- 
verse characters). That should give you a 
good idea of what the first two bits can do. 
By the way, since the cursor is essentially 
an inverse character, it will disappear as 
well when you make the inverse character 
background disappear. 

The last bit is pretty self-explanatory. 
Just try POKE 755,4 and see what 
happens. 

What can you use CHACT for? Reverse 
characters add emphasis to text, CHACT 
lets you add even more emphasis by mak- 
ing inverse characters blink. Try the fol- 
lowing: 



lee GRAPHICS e 

IBS POKE 752,1 
lie PRINT IPRIMT 



■Odd m 



Ijinviw to your programs" 
120 FOR BLINK=1 TO 10 
130 POKE 755,8 

149 FOR DELfiV=l TO 50 

150 NEKT DELAY 
160 POKE 755,2 

170 FOR DELflY:l TO 50 
180 NEXT DELAY 
190 NEKT BLINK 
195 POKE 752,0 

Try substituting other values for the zero 
in line DO. Also see location VVBLKD at 
548 and 549 for a machine-language rou- 
tine that uses CHACT to make inverse text 
blink while you're typing it. 

In case you hadn't figured it out already, 
CHACT is initialized to two. 



CHACT does some neat things to the 
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This is a biggie. (Have I ever lied?) 
CHBAS holds the address in pages (so you 
multiply the number here by 256 to get the 
actual address) of the character set. What 
is a character set? A character set is a 
whole bunch of numbers that tell the com- 
puter how to draw the various characters 
on the screen. In other words, it tells the 
computer what the characters look like. 
How can numbers describe what a charac- 
ter looks like? First of all, you should go 
read the section from a couple of months 
ago on bits and bytes. Then come back 
here. 

Back already? Okay, what do bits and 
bytes have to do with character descrip- 
tions (why am I asking so many ques- 
tions)? Well, a byte can be thought of as 
part of a picture. You know, with the bits 
being dots in the picture. You turn a bit 
on, and the corresponding dot in the pic- 
ture gets turned on. You've already seen 
how this is used in the graphics modes. 
Well, the text modes also need to turn dots 
on and off, but they need to change a whole 
bunch at once for each character. So what 
the Atari does is store eight bytes for each 
character in this special thing called the 
character set. Each of these descriptions 
is given a number, and to set the right dots 
for a particular character, the computer 
just has to say, "Hey, get me the descrip- 
tion for character number (whatever) and 
put it on the screen," and the character 
will magically appear on the screen. 

Let's take a look at how those eight bytes 
make up a character in Figure 4. 



# IN 


BIT 


MEMORY 


PATTERN 





00000000 


12 


00001100 


28 


00011100 


60 


00111100 


108 


01101100 


126 


01111110 


12 


00001100 





00000000 



02F4 



Figure 4. CHBAS bit chart 
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Now you can see how simple creating 
characters is. First draw the shape of an 
8x8 pattern of Os and Is. Next add up the 
value of the ON, or 1, bits. Then POKE 
these numbers in the proper order into 
memory. Let's go over the details. 

Look at those bite again in terms of dots, 
with the Os meaning no dot, and the Is 
meaning dot; 



l lllllllllll 

m 



Ah, ah! The description we used was for 
the "4" character. You should now be able 
to see how the descriptions work. 

How are the descriptions ordered within 
the character set? It's not the same order 
as ATASCII (the order that CHR$ and 
ASC use). To convert from ATASCII 
values, which you can find in your BASIC 
manual, to the character set order, use 
Figure 5. 



TYPE OF CHARACTER 

uppercase, 

numbers, 

puncluation 


ATASCII NO. 
32-95 


CHAR. SCTNO. 

0-63 


graphics, 
characlers 


0-31 


64-95 


lowercase 


96-127 


96-127 



Figure 5. 

Now, to find the character description of 
a particular character, find the ATASCII value 
(either with ASC or by looking it up in the 
chart in the BASIC manual), use the preced- 
ing chart to convert it to the character set 
value (more commonly called the "internal" 
value), multiply that by eight (because there 
are eight bytes for each character) and add 
it to PEEK(CHBAS)*256. The result is the 
address of the first byte of the character 
description you want. 

The character set that comes with the Atari 
is stored starting at location 57344. You can 
double-check this by PEEKing CHBAS and 
seeing that it has a value of 224. There are 
a total of 128 possible characters (not count- 
ing inverse ones), so the character set takes 



up 128*8 equals 1024 bytes. 

In graphics modes 1 and 2, you probably 
know that you can't have upper- and lower- 
case letters on the screen at the same time. 
Why not? In these modes the characters can 
be one of four possible colors. In order to be 
able to pull this off, two of the bits in the 
character number have to be used to specify 
the color This means that only six bits are 
left to specify the character Six bits are 
enough to give you the numbers through 
63. Zero through 63, if you consult the 
preceding character order chart, are the up- 
percase characters, numbers and punctuation. 
So what if you want lowercase? The BASIC 
manual tells you to POKE 755 (CHBAS) with 
226 instead of 224. What does this do? It 
moves the start of the character set forward 
by 512 (2*256) bytes. Now I know that right 
now you're thinking to yourself. Gee, 
through 63 is a total of 64 characters, and 
eight bytes for each character gives me, let 
me see, uh, 512 bytes! Hey, you're terrific! 
What you just caught on to is that changing 
CHBAS like that simply lets you skip over 
to the lowercase and graphics characters, the 
other half of the character set. 

Unfortunately, this means that the heart 
character gets used as a space, so your screen 
is filled with hearts— romantic, but not what 
you want. You can get rid of them with SET- 
COLOR 0,0,0 or by redefining the heart 
character to a space. 

In graphics mode 0, there's not much more 
to tell. If an inverse video character is re- 
quested (see INVFLG [694]), then the eight 
bytes for that character are reversed (Is 
changed to Os and vice versa) before they are 
put on the screen. 

CHBAS is a shadow register for CHBASE 
at location 54281. For some reason you can- 
not set CHBAS to an odd number, or garbage 
will fill the screen. Finally, CHBAS can be 
set to point to your own character set. 

"Hold on there, just a second, wait a 
minute, time out, take five, whoa! You mean 
I can design my own character set? And you 
took all this time before you told me, and now 
you're going to move on without telling me 
how to do it? What kind of author are you?" 
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We'll cover character sets in a future install- 
ment of "Master Memory Map." 



Noname 
757-761 
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More spare bytes. You know, I have to as- 
sume that you're going to come to these lo- 
cations and forget all about that warning I 
gave you way back when. You remember, 
"Don't use spare bytes, they may be used in 
future versions of the OS." But if you did 
remember and are getting sick of me telling 
you every time we come across some spare 
bytes, then what can I say? It's a rough world 
out there. 
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This is the internal number (value) of the 
character that was read or written last by the 
display handler. A lot of the time the han- 
dler will move the cursor as the last step of 
an operation, so PEEKing here will often 
return a value of 128 or (for a visible or 
invisible cursor respectively). 

ATACHR gives the ATASCn value cor- 
responding to the internal value in CHAR. 



ATACHR 
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ATACHR is used by the display handler, 
the screen editor and the keyboard handler 
to hold the ATASCII value of the character 
last read or written. If we're using a graph- 
ics mode rather than a text mode, then it's 
the value of the graphics byte rather than that 
of the character (for the display handler only). 
It's also used in converting ATASCII to in- 
ternal and vice versa, and FILL uses it to hold 
the color of the area being filled (in which 
case it gets its value from FILDAT [765]). 



CH 
764 



02FC 



CH is the middle guy between tlie liey- 
board and the keyboard handler. When a 
key is pressed, a keyboard value (yes, yet 
another kind of character value) gets put 

JANUARY A.IM.A.L.O.a. Computing 



into CH. The keyboard handler then picks 
it up, puts it into CHI (754), and puts a 
255 into CH to indicate that it got the value 
okay. There are a few exceptions to this. 
First of all, if we're in the middle of de- 
bouncing (see KEYDEL [753], the key is 
ignored completely; it doesn't even make 
it to CH. If Control-1 is pressed, then 
SSFLAG (767) is updated, but CH is not 
affected. Finally, CH also gets changed by 
the key repeat process mentioned under 
SRTIMR at location 555. To repeat a key, 
the OS takes the value in KBCODE 
(53769) and stores it in CH. 

If you are GETting information from the 
keyboard, make sure you set CH to 255 be- 
fore you do your GET. This will make sure 
that any previous key presses are ignored. 
For example. 



100 OPEN ni,i,B,"Ki" 

118 POKE 764,255 

128 GET 81, A 

130 PRINT "Vou pressed k 

ey nunber ";PEEK(754} 

140 GOTO 110 



You can use this program to find out the 
values for the various keys, or you can look 
at the chart on page 50 of the OS manual. 
In either case, you should notice that the 
Control key adds 128 to a key value, and 
the Shift key adds 64. 

Here is my favorite trick for this loca- 
tion. Say you want your program to load 
in a tape program and then run it. It would 
seem that there is no way to do that be- 
cause someone has to press the Return key 
after the program loads and you type 
RUN. Not true. Use location 764 to hold 
the Return key like this: 

18 REH YOUR PROGRAM HERE 



2888 POKE 764,12:CL0AD:R 
UN 



DSPFLG 
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Simply put, FILDAT is the data of FILL 
within the XIO 18 command. 



02FE 



When DSPFLG is set to a nonzero value, 
then Control characters like Control-Clear, 
Control-Delete, Control-arrow and so forth 
will appear as a character on the screen rather 
than having some kind of effect on the screen 
(such as clearing it or moving the cursor). 
If it's equal to zero, then they have their nor- 
mal effect. 

Note that to type a Control character so that 
it appears on the screen, you press Esc be- 
fore you type that character. ESCFLG (764) 
is ORAed with DSPFLG before the charac- 
ter is processed. That means that the Esc key 
is not the only way to get Control characters 
to appear. That's good. Suppose, for exam- 
ple, that you want to print the arrow charac- 
ters on the screen from BASIC. You can use 
the Esc key to type them into a string, but 
when you try to print that string to the screen, 
BASIC will move the cursor rather than print 
the arrows. What you have to do is POKE 
766,1 before you try and print the string. Be 
sure to change it back afterward. 
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SSFLAG is used to pause a program or a 
LISTing. When it's set to 0, everything works 
as usual. When set to 255, however, the pause 
is in effect and will stay that way until it's set 
back to again. If the basic idea of this 
sounds like something you've run across be- 
fore, that's because it is. The Control-1 key, 
which you have probably used to pause your 
LISTings, changes SSFLAG. You can also 
change SSFLAG yourself, but if you do it 
from within a BASIC program, keep in mind 
that the program is paused, so you won't be 
able to change it back unless somebody press- 
es Control-1! Try this: 

100 POKE 202,1 

110 PRINT "How try LISTi 

ng this prograM" 

SSFLAG has no effect on machine- 
language routines, which is why you can't use 
Control-1 to pause some programs. P 

S3 
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For use in machine-language entry. 



by Clayton Walnum 



M/L 



Editor provides an easy 
mettiod to enter our 
machine-language list- 
ings. It won't allow you 
to skip lines or enter bad 
data. For convenience, you may enter listings 
in multiple sittings. When you're through typ- 
ing a listing with M/L Editor, you'll have a 
complete, runnable object file on your disk. 

There is one hitch: It's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If 
you're starting a new listing, type in the file- 
name you want to save the program under, 
then press RETURN. If there's already a file 
by that name on the disk, you'll be asked if 
you wish to delete it. Press Y to delete the 
file, or N to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine-language program in 
ANALOG Computing is represented by a list 
of BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need to be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 



type the number and press Return. If you 
press Return without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q for 
"quit"). You must either enter a number or 
press Return. 

When you finish a line, M/L Editor will 
compare the entries' checksums with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cunsor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number 
is correct, press RETURN. 

If you find an error, make the correction. 
When all data is valid, the screen will return 
to gray, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte 1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk.). 



The two-letter checksum code preced- 
ing the line numbers here is not a part 
of the BASIC program. For more in- 
formation, see the "BASIC Editor 11" 
in issue 47. 



LISTING 1: BASIC LISTING 



AZ le DIM BFC16) ,NS(4),A$(1],B$C11 ,F$C15> 

,F1$(15) 
tF il DIM HODS (4] 
*N 29 LIHE=1000:RETRH=155:BaCK5P=126;CHKS 

UM=e;EDII=B 
GO 39 G05UB 459;P05ITI0N 19,6!? "Btart or 

Hontinue? "i:G05UB 508:? CHR$(A) 
ZG 40 POSITION 10,8:? "FILENOME"; : INPUT F 

S!POKE 752,1:? " " 
fE SB IF LEHCFSX3 THEN POSITION 28,18:? 

" "!GOTO 48 
KF 68 IF F$(1,2)<>"D:" THEN F1S = "D ; '■ : FlS C 

3)=F$:G0T0 88 
KL 78 F1S=FS 

TH 68 IF CHRSC(1)="5" THEN 129 
FB 98 TRAP 430:0PEN n2, 4, 8, Fl$ : TRAP 118 
HQ 108 FOR K=l TO 16;GET n2,ft:NEKT K:LINE 

:LIHE*10!G0T0 100 
HM 110 CLOSE n2:0PEH »2, 5, 6, Fl$ : GOTO 170 
Vr 128 TRAP 160:0PEN n2, 4 , 0, Fl$ : GOSUB 449 

;P05ITI0H 10,10:? "FILE ftLREODV EXISTS 

• !":P0KE 752,0 
ZU 130 POSITION 19,12!? "ER65E IT? "1!G05 

UB 500:P0KE 752,1:? CHRStft) 
WH 140 IF CHPlS(0)="N" OR CHRSCO)="n" THEN 

CLOSE t>2:G0T0 30 
OG 158 IF CHRS(0)<>"V" OND CHRSCft)<>"u" T 

HEN 130 
BH 160 CLOSE It2!0PEN tt2,8,8,Fl$ 
IE 170 GOSUB 450:P0SITI0H 19,1:? " l.'lil!Bii:B 

SSB: ";LINE!CHK5UM=8 ....— -.^ 

GH 180 L1:3:F0R K=1 10 16:P0SITI0N 13»{K< 

10)tl2HCK>5) ,K+2:P0KE 752,8:? "BYTE «" 

;x; ; !GosuB 3i8 

KH 198 IF EDIT AND L=8 THEN BYTEZBF CK) ! GO 

TO 210 
py 208 ByTE=UaLtNS) 
OZ 281 H0D;::N$ 

BU 218 POSITION 22,K+2!? BYTE;" " 
VZ 220 BF(K)=BYTE:CHKSUM=CHK5UMtBYTE>IX:IF 

CHK5UM>9999 THEN CHK5UM=CHKSUM-10008 
MS 230 NEXT X:CHKSUM=CHKSIIMtLIHE!lF CHKSU 

M>9999 THEN CHKSUM=CiiK5UM-10008 
IE 240 POSITION 12,Xt2:P0KE 752,9!? "CHEC 

K5UM: "; :Ll:4:G0SUB 319 
EH 250 IF EDIT AND L=0 THEN 278 
OM 260 C = U(1L(K$) 

SV 270 POSITION 22,X*2:? C;" " 
IL 2B0 IF C=CHKSUM THEN 300 

DI 290 GOSUB 440!EDIT=1:CHK5UM:8:GOTO 188 
LH 308 FOR X = l TO 16:PUT l>2 , BF (X> : NEXT X: 

LIHE=LINEtl8!EDIT=8:C0T0 178 
rV 318 L=0 
KZ 320 GOSUB 500:IF (ftzOSC ("Q") OR d^OSCC 

"q")) OND X=l AND NOT EDIT THEN 420 
PO 330 IF ftORETRN OND flOBOCKSP AND t« <4 

B OR (»57) THEN 328 
DX 331 IF <1 = RETRH OND NS = "" THEN NS = MODS 
TO 335 IF ft=RETRN OND L=8 AND X>1 THEN 3S 


JR 340 IF ((A=RETRM OND NOT EDIT) OR 0:B 

OCKSP) OND L:0 THEN 320 
BH 350 IF O^RETRN THEN POKE 752,1!? R 

ETUBN 
GG 360 IF OOBOCKSP THEN 400 
50 370 IF L>1 THEN NS=NS CI, L-1 J : GOTO 390 
AS 300 HS="" 

RE 330 ? CHRSCBOCKSP); :L=L-1:C0T0 320 
BB 400 L:Ltl:IF L>L1 THEN 0-RETnN:GOTO 35 


MX 410 NS(L)=CHR5C0) :? CHRS(O) ; :G0T0 320 
KN 420 GROPKICS 0:END 
VT 430 GOSUB 440;P0SITI0M 10,10!? "NO SUC 

H FILE!":F0R X=1 TO 1000;NEXT X:CLOSE 

n2:G0T0 30 
FD 440 POKE 710,4S:S0UND 8, 100 , 12, 6 : FOR X 

=1 TO 50:HEXT X:50UND , , , : RETURN 
MY 450 CROPHICS 23:P0KE 16,112;PQKE 53774 

,H2:P0KE 559,0:P0KE 710,4 
XR 460 DL=PEEK (560)*256»PEEK(561J*4:P0KE 

DL-1,70:POKE DL+2,6 
HH 478 FOR X=3 TO 39 STEP 2:PDKE DL»X,2:N 

EXT X:FOn X=4 TO 40 STEP 2:P0KE DLtX,9 

ZH 480 POKE DL«41,65:P0KE OL t4 2 , PEEK (5601 
iPOKE DL*43,PEEK<561) IPOKE B7,0 

AC 490 POSITION 2,0;? "analog Mleditor": 
POKE 559,34:RETURN 

HZ 500 OPEN nl,4,8,"K:":CET ni,A!CL05E HI 
:RETURN jm 
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Well, it finally happened: I'm out of games. 
It's an event that has been looming on the 
horizon for months now, a sad fact that I've 
lamented endlessly in these pages. It's even 
become something I've learned to live with. 
And while I am in the process of searching 
out the few titles I haven't looked at yet, I 
decided this month to look at what it takes 
to make a given game great. 

The question that immediately comes to 
mind is that if I know so much about these 
games, why don't I just make them? To an- 
swer this, some might paraphrase Woody Al- 
len, saying that those who can't do, teach, 
while those that can't teach become critics. 
The truth is much sadder. Alas, I feel deep 
sorrow when I must confess that I am at the 
point in my life when there's barely time 
enough to keep up with what I've got going, 
much less anytime to learn any new skills. 
I must instead attempt to master those I al- 
ready have. And programming is not one of 
them. A firm grasp of BASIC is not enough 
to create award-winning games. For this rea- 
son, I choose to play games, which in turn 
qualifies me to enumerate and comment on 
what I perceive to be the required compo- 
nents of each game genre, the qualities a pro- 
gram must have to make the cut. So you 
developers out there, read carefully, and 
hopeful programmers lend an ear. 

The first genre I'll look at is the war simu- 
lation, probably the simplest game to pull off 
successfully. The hallmark of a great simu- 
lation is an uneasy balance between a wide 
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range of command choices and a simple con- 
trol interface. Give me enough control to 
make it real, but make it simple enough that 
I don't need a doctorate to play. For this rea- 
son, the joystick is preferred, optimally com- 
bined with a menu across the bottom of the 
screen. This not only allows the player to re- 
lax during the lengthy sessions which are re- 
quired to complete a simulation, but also 
speeds learning, by offering a continuous 
reminder of the currently available options. 

A simulation should also be a strong op- 
ponent. If, once you learn to play the game, 
you find the computer is a pushover, you'U 
quickly shelve the game. Graphics, while im- 
portant, generally take a backseat in a simu- 
lation. But they should still be carefully 
designed so that it is easy to differentiate the 
various unit icons, as well as the differing 
battlefield terrains. Finally, the scenario must 
be engaging. This is the toughest aspect, in 
my opinion. Too many games center them- 
selves around this or that or the other civil 
or world war battle. The result is a market 
cluttered with look alikes. Too few simula- 
tions allow space battles or colonization of 
distant planets, or sword and sorcery for that 
matter. 

Speaking of sword and sorcery, the fanta- 
sy game is a specialized simulation which just 
happens to be my favorite game type. Give 
me a well-designed fantasy, and I'm apt to 
deprive myself of sleep until it's finished. The 
rules for simulations apply here, although the 
graphics are a little more important. After aU, 
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/ know a good game 
when I see one: It 
must be tough, but 
fair in its never- 
ending onslaught 
of dangers and 
rewards. 



they've got to create and enhance a whole 
new world, rather than simply build upon 
familiar and easily visualized surroundings. 
The old saying that a picture is worth a thou- 
sand words applies here. Don't depend on the 
documentation to paint the entire picture. 

Operationally speaking, the simulation has 
the worst track record as far as performance 
goes. Most games are too large to exist com- 
pletely in RAM, hence seemingly endless 
disk accesses and swaps are often necessary 
to play the game. When this is necessary, the 
pauses should be placed at natural break 
points if at all possible— say between phases, 
or, preferably, between players. And 
password-based copy-protection schemes 
should request a response only once during 
any play session. 

Another type of simulation is even simpler 
to establish the criteria for success, but much 
harder to implement. I call these the think- 
ing games. Programs which beat man at his 
own games; for example, chess. Golf games 
also fall into this grouping. These programs 
must, of course, know how to play the game. 
It would be most annoying to run into a chess 
game which failed to recognize an allowable 
castle, or a golf opponent who refused to take 
penalty strokes when lifting out of a water 
hazard. 

In addition to knowing the rules, these 
games must be good opponents as well. As 
in the simulation, I didn't pay the price of ad- 
mission just to win every time to play against 
a moron. I want to be challenged. And I want 
to jump right in. For this reason, the control 
interface is again important. With these 
games I prefer a scheme which is intuitive, 
so that you can step right into the game. A 
good example of this is Electronic Arts' 
Chessmaster 2000, in which you manipulate 



an animated hand over the pieces, and then 
pick them up. Menus are again helpful. The 
point is that you shouldn't have to read a 
lengthy manual just to partake of a game 
you've played all your life. 

Arcade games are the hardest to peg, which 
is why I've saved them for last. Who would 
have thought that a litde smiley face that gob- 
bled dots could also manage to gobble up so 
many quarters. It goes without saying that the 
images must be colorful and distinct, the ac- 
tion fast and challenging. The skeleton of this 
genre is as set as any other. The guts of the 
good game are what is so mysterious. The 
only thing I can say is that I know a good one 
when I see one. Pac-Man, Asteroids, Don- 
key Kong, Xevious. The game must be tough, 
but fair in its never-ending onslaught of al- 
ways changing dangers and rewards. Extra 
men should be able to be rewarded indefinite- 
ly, a la Missile Command. In a great arcade 
game, the sound, the graphics and the action 
are almost hypnotic, forcing you to zombie- 
like play just one more time. 

Now a little about documentation. Make 
it fit the game. An arcade game doesn't need 
an elaborate story line. You need to know how 
to load the thing, and from then on the screen 
should be the source of your information. A 
well-designed demo or teaser screen will 
draw the uninitiated right into the game. As 
the game becomes more complex, so must 
the manual. Indexes and reference cards are 
essential. Often the reference card is all I use 
to learn to play a game. 

Well, that's it for this month. I hope I've 
given a couple of designers a few ideas, as 
well as enlightened some end users. When 
next we meet, I'll apply these principles to 
some games I've just received: a couple of 
arcade games and a new simulation. 

JANUARY A.N.A.L.O.Q. Computing 
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b¥ Michael A. Banks 

HAPPY NEW YEAR! 
BUENO ANO NUEVO! 
AKEMASHITE OMEDETO 
GOZAI MASU! 



PEOPLE 

To see a profile as entered in PEOPLE, 
type /WHOIS followed by a membername 
at most any SIG prompt. You'll see what 
the member in question has entered in his 
or her profile: 



The commands used in PEOPLE and the 
Member Directory are the same, so keep 
in mind that what follows in the descrip- 
tion of the Member Directory applies to 
PEOPLE, as well. The only difference is 
in where members can access the informa- 
tion entered in the databases. 



Well, here we are— at the beginning of the 
end of what singer Jimmy Buffett calls the 
"Fabulous Eighties!" I can't say that this de- 
cade has been as tumultuous and fascinating 
as, say, the '60s, but it has been interesting. 
As we enter into the final year of the decade, 
allow me to extend my best wishes to all of 
you for a prosperous and even more interest- 
ing new year. 

Hm ... I wonder what the '90s will bring? 
Certainly more computers, and more things 
to do with them. But, while you're waiting 
for the turn of the decade, there's plenty to 
keep you busy in ANALOG'S Atari SIG— 
like getting to know your fellow SIG mem- 
bers better! Let's take a look .... 

Finding Out Who's Who Online 

In recent columns, I've shown you how 
to find out who's online, and how to find 
information such as a member's real name. 
This time, we'll delve even deeper into 
finding out about your fellow SIG 
members. 

Short of asking someone in E-mail, Fo- 
rum or real-time conference, the best way 
to find out who someone is, and about their 
likes, dislikes, location and interests, is to 
read a user's online profile. A profile is in- 
formation a member enters about him/her- 
self in one of several public areas on 
DELPHI. The information is entered un- 
der keywords and is searchable. There are 
two areas where users can enter profiles. 
One is PEOPLE, (a selecdon of the DEL- 
PHI Main Menu). The other is in SIG 
Member Directories. The two are separate 
databases. A member's PEOPLE profile 
usually contains general informafion. A 
Member Directory profile contains more 
specialized information, pertaining to the 
SIG's special areas interests. 

JANUARY A.N.A.L.O.G. Computing 



ANALOG>What do you want to do? /WHOIS BACHAND 

NAME : Charles Bachand 

CAR : I'm currently driving a 1985 Nissan 300ZX 2+2. It was the only car 

I could fit Into comfortably. <grln> 
COMPUTERS : Atari ST 
DELPHI : I'm currently helping out in several of the on-line SIGs here, 

trying to get into CSiX (Computer Shopper), Atari 8-blt (ANALOG), Atari ST 

(ST-Log), and of course, the Hobby SIG, each day. 
FADS : Favorite word this week: "CURRENTLY". 

HOBBIES : Currently I'm into R/C Cars (1/10-scale electrics) with my Kyosho 

Roci<y 4WD. i'm also an electronics experimenter and the first one holding a 

screwdriver whenever a new electronic toy comes my way. 
LOCATION : Worcester, MA 
OCCUPATION: Software and text author, having worked for ANALOG and ST-Log 

magazines for a number of years. I'm currently developing Atari ST specific 

software, as well as Implement a full blown hobby store on-line In the Hobby 

SIG's Shopping Area. 
TERM-SOFT : Flash! 



Entering information in PEOPLE or SIG 
databases is not compulsory, however, and 
if a member hasn't entered any information 
about him/herself in PEOPLE, DELPHI 
will inform you, like this: 

There is no information on file for BINGO 

Profiles vary in length and content, de- 
pending on the individual's preferences. 
Members may enter whatever they wish 
about themselves, so if something you read 
in a profile seems a little fantastic, you 
might take it with a grain of salt. 

To get into the PEOPLE area— either to 
perform a search (as described later) or to 
enter your information — type GO PEOPLE 
at most any Atari SIG prompt, or exit to 
the DELPHI Main Menu and type PEO- 
PLE. The PEOPLE area operates exactly 
like the Member Directory. 



Member Diredoiy 

To access the information entered in the 
ANALOG Atari SIG's Member Directory, 
type Member, which is a selection on the 
SIG menu. You'll see this menu: 

ANALOG>What do you want to do? MEMBER 

MEMBER Directory Menu: 

I -Am 

Who- Is 

List-Keywords 

Browse 

Search 

Help 

Exit 

Who's not? (WHO-IS) 

The simplest operation in the Member 
Directory is viewing the profile of a specif- 
ic DELPHI member. 'lype WHOIS (or 
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WHO-IS or /WHOIS) and a membername 
to see that member's Member Directory 
profile. The format is the same as that dis- 
played by PEOPLE, but the content will 
probably be quite different because, again, 
PEOPLE and the Member Directory are 
two different databases. 

Browsing the Member Directory 
(BROWSE) 

You don't have to enter a specific mem- 
ber name to access information about other 
Atari SIG members. You can browse 
through Member Directory entries in se- 
quential order. Type BROWSE, and you'll 
be prompted for a letter or letters; this 
specifies the point at which the Directory 
should begin displaying profiles. (You can 
enter numbers, too.) For instance, type A, 
and you'll see information on the first 
member name beginning with "A." Type 
KZ, and you'll see my Member Directory 
entry. Type 0, and you'll see the very first 
entry in the Directory. Press Return to see 
ensuing entries in alphabetical order; enter 
Control-Z to return to the Member Direc- 
tory menu. 

BROWSE is also useful if you want to 
find information about members whose 
names you may recall only partially. For 
example, a user name such as GEODEA- 
MON may be rather difficult to recall, but 
if you remember at least "GEO," you can 
enter those three letters and find the full 
member name and profile (assuming the 
member in question has entered his/her 
profile in the Member Directory). When 
used this way, BROWSE is a useful search 
tool, especially since it will turn up all user 
names that begin with the specified string. 

Searching Out the Facts 
(SEARCH) 

The Member Directory offers a sophisti- 
cated search tool that is based on the key- 
words under which members enter 
information about themselves. But its struc- 
ture differs substantially from that of the 
SIG software databases, so I need to take 
a few lines to explain the structure of the 
database before I can tell you how to use 
SEARCH. 
va 



Rather than having keywords attached to 
entries in the database, the information in 
each entry is organized under various key- 
words. This makes for an important distinc- 
tion when you enter or search information; 
rather than searching for keywords, you 
search the information that is stored under 
a keyword. As an example, in ANALOG'S 
profile, the searchable information under 
the keyword NAME is "Clayton Walnum." 
In the actual search operation, you would 
specify NAME as the keyword to be 
searched, and "Clayton" or "Walnum" (or 
both— or any fragment of either name) as 
the information to be found, which is also 
known as the "search string." 

Here's a more detailed example: Let's say 
you want to find people who use the 
HOMETERM terminal program. In that 
case, you would type SEARCH, then speci- 
fy TERM-SOFT (one of the standard key- 
words used by the database) as the 
keyword, and HOMETERM as the search 
string. The search would go like this: 



Had I typed Y at the "More?" prompt, 
DELPHI would have displayed another 
screenful of member names. And if I had 
typed Y at the final prompt, DELPHI 
would continue displaying profiles for all 
of the above-named members, until I en- 
tered Control-Z or Control-C. (Obvious- 
ly, HOMETERM is a very popular 
program.) 

Note that a keyword search will find any 
string under a keyword. Thus, if you speci- 
fied OCCUPATION during a search and 
entered "write" as the search string, 
ANAL0G4's entry would come up because 
"writer" is under the specified keyword. 

Make a List (LIST-KEYWORDS) 

Speaking of keywords, you can see a list 
of the most commonly used keywords in 
the Member Directory, or a list of all cur- 
rent keywords in use by typing LIST- 
KE'i^ORDS at the DIRECTORY prompt. 
When you do a search, it's handy to know 



D1RECT0RY>(I-An, Who- Is, List, Browse, Search): SEARCH 



What KEYWORD: TERM-SOFT 



Search for:HOMETERM 



Matches found for the following membernames: 



113MAMA 


AARONFINCH 


ADOLPH 


AJK 


ATARUS 


BARRYGRAY 


BATTERIES 


BELLABS 


BERNIEB 


BETHEL 


B0ND007 


BRYON 


BUDDY 


BVECTOR 


CANNONBALL 


CASHFLOW 


CHARLEKOONTZ 


CKSCULLION 


CLOCKMAN 


CONTROLATARI 


CSONG 


CYMOLER 


DALLASATARI 


DAVIDMARTIN 


DBLAKESLEE 


DDMASTER 


DDW 


DICKB 


DICKDERY 


DML 


DOCTORDAVE 


DWAINE 


DWGLOVER 


EEF 


ELECTRODAVE 


ESTUS 


EXPRESSWAY 


FASTMAN 


FLIPPER 


FLYINGTURTLE 


FRANKN 


FRETS 


GENEDOUGLASS 


GEOFFREY 


GFBROWN 


GLOBE 


GRANDPAW 


GRAYWOLF 


HACKER 


HALUEKING 


HAP 


INET65 


JABER 


JACE 


JAWS 


JAYMER 


JEFE 


JEFFC 


JEPU 


JERRYCHAM 


JJJACKSON 


JJJF 


JL626 


JOEST 


JOEWYKS 


J0HNNY1 


JOHNNYMAC 


JOHNO 


JOJO 


JRQ 


KARNOW 


KATOOM 


KDG 


KENMATHESON 


KJOHNSON 


LEHI 


LWB 


MAGNATE 


MEMBERSHIP 


MERLYN 


More?N 










Found 80. 











Would you I ike the complete 
ineiiibernames?N 



profiles printed for the selected 
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One of the best ways 
to learn about the 
Member Directory 

database structure is 

to enter your own 

profile. 



just what's there, so you might want to view 
and capture the keyword list(s) before you 
try a search. 

Type LIST and you'll be asked whether 
you wish to see a list of all keywords, or 
just the more frequently-used keywords 
(recommended). Seeing the keywords will 
also help you better understand the data- 
base structure. 

''Getting to Know You ... 



(l-AM) 



J) 



Actually, one of the best ways to learn 
about the Member Directory database 
structure is to enter your own profile, 
which you will probably want to do soon- 
er or later, anyway. Going through the 
process of entering your profile is very in- 
structive. 

DELPHI will prompt you and provide 
instructions every step of the way, and 
you'll find that you understand the keyword 
system completely when you're done. 

DELPHI will initially ask you to enter 
information about yourself under these key- 
words: NAME, COMPUTERS, LOCATION 
and TERM-SOFT. After that, you can add 
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information under other keywords by typing 
ADD. (If you've left the I-AM menu, you'll 
have to type I-AM first.) Almost anything can 
be used as a keyword, but keep in mind the 
fact that people will be looking for you, and 
use logical keywords. Browse through some 
of the existing profiles to get ideas for 
keywords. 

You can also edit or delete keyword entries 
later on. 

And remember: information you enter in 
the Member Database is accessible only at 
the Member Database menu; it cannot be ac- 
cessed via the /WHOIS command at prompts 
outside the Member Directory. 

Spotlight: ANALOG'S Atari SIG 
Databases 

Database offerings continue to grow, and 
you'll find highlights from the most recent 
issues of ANALOG in the Current Issue 
database. And don't forget to check the Re- 
cent Arrivals database for new uploads not 
yet moved to their specific database 
categories. 

Speaking of databases, here's a reminder 
to ANALOG readers who aren't yet DEL- 
PHI members: among the many benefits of 
DELPHI membership is being able to 
download program listings that appear in 
ANALOG. That's a major convenience, 
when you consider all the time you spend 
keyboarding programs — and correcting er- 
rors. And there are thousands of other pro- 
grams uploaded by ANALOG Atari SIG 
members, as well as the latest Atari news 
and reviews and much, much more. In- 
terested? You can sign up right now: See 
the accompanying sidebar for online sign- 
up information. 

Conference Reminder 

On Tuesday evenings at 10 p.m., EST, 
ANALOG'S Atari SIG is the place to be! 
The Atari Users' Group holds a real-time 
conference that is open to everyone. Come 
on by and meet other Atari users. 

To join in the conference, type CO at the 
SIG menu, then type WHO at the confer- 
ence menu. You'll see a conference group 
name, with a list of the members participat- 
ing beneath the group name. The name will 
be preceded by a number; to join, simply 
type JOIN followed by the number, and 




you're in! Type to talk. If you get stuck, 
ask those in the conference group for help, 
or type /HELP. 

That's it for now. Next month: customiz- 
ing DELPHI. Until then, see you online! 

In addition to having published science- 
fiction novels and books on rocketry, 
Michael A. Banks is the author ofDELPHI: 
The Official Guide and The Modem 
Reference — both from Brady Books/Simon 
& Schuster. Look for his general articles on 
telecommunications and tips on using DEL- 
PHI in the Atari Users ' Group databases. 
You can contact Banks to exchange weather 
reports and other information on DELPHI 
by sending E-mail to membemame KZIN. 



Make i ,^_ 
DELPHI Comiectm^ 

As a reader of ANALOG Computing, 
you are entitled to take advantage of a spe- 
cial DELPHI membership offer. For only 
$19.95 plus postage and handling ($30 off 
the standard membership price!), you will 
receive a lifetime subscription to DELPHI, 
a copy of the 500-page DELPHI: The Offi- 
cial Guide by Michael A. Banks and a 
credit equal to one free evening hour at 
standard connect rates. Almost anyone 
worldwide can access DELPHI (using 
Tymnet, Telenet or other networking serv- 
ices) via a local phone call. Make the DEL- 
PHI connection by signing up today! 

To join DELPHI: 

1. Dial 617-576-0862 with any terminal or 
PC and modem (at 2400 bps, dial 
576-2981). 

2. At the Username prompt, type 
JOINDELPHl. 

3. At the Password prompt enter 
ANALOG. 

For more information, call DELPHI 
Member Services at 1-800-544-4005, or at 
617-491-3393 from within Massachusetts or 
from outside the U.S. 

DELPHI is a service of General Video- 
tex Corporation of Cambridge, Mas- 



BASIC 
Editor II 



bv Clayton Walnum 



BASIC Editor II is a utility to help you 
enter BASIC program listings pub- 
lished in ANALOG Computing. To 
simplify the identification of errors, 
each program line is evaluated im- 
mediately after it's typed, eliminating the 
need for cumbersome checksum listings. 
When you've finished entering a program us- 
ing BASIC Editor II, you can be certain it 
contains no typos. 

An option is provided for those who wish 
to use standard BASIC abbreviations. Also, 
the program retains all Atari editing features. 
Finally, for those who prefer to type programs 
the conventional way, using the built-in edi- 
tor, a post-processing mode is available. It al- 
lows you to check typing after the entire 
listing has been entered. 

Typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below— exactly. 

Disk version: 

(1) Type in Listing 1, then verify your work 
with Unicheck (see Issue 39). 

(2) Save the program to disk with the com- 
mand SAVE "D:EDITORLLBAS". 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2, then verify your work 
with Unicheck. 

(5) Run the program (after saving a back- 
up copy) and follow all the on-screen 
prompts. A data file will be written to your 
disk. 

(6) Load Listing 1 with the command 
LOAD "EDITORLl.BAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 
"D.MLDAT". 



(8) Save the resultant program with the com- 
mand LIST "D.-EDITORILLST". 

Cassette version: 

(1) Type in Listing 1 and verify your work 
with Unicheck. 

(2) Save the program to cassette with the 
command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2 and verify your work 
with Unicheck. 

(5) Run the program and follow the on- 
screen prompts. A data file will be written to 
your cassette. 

(6) Rewind the cassette. 

(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 with 
the command ENTER ' 'C: ' '. 

(9) On a new cassette, save the resultant pro- 
gram with the command LI^ "C:". 

Using the Editor 

Take a look at one of the BASIC program 
listings in this issue. Notice that each program 
line is preceded by a two-letter code. This code 
is the checksum for that line; it's not a part 
of the program. 

To enter a program listing from the maga- 
zine, load BASIC Editor II with the ENTER 
command, and run it. You'll be asked if you 
wish to allow abbreviations (see your BASIC 
manual). If you do, type Y and press 
RETURN. Otherwise, type ^V. 

Note: If you set BASIC Editor II to allow 
abbreviations, the program will run slightly 
slower. 

Your screen will now be divided into two 
"windows." The upper window will display 
each line after it's processed, as well as the 



checksum generated for that line. The lower 
window is where program lines are typed and 
edited. 

When the program's waiting for input, the 
cursor will appear at the left margin of the typ- 
ing window. Type a program line and press 
RETURN. The line will be evaluated and 
reprinted in the message window, along with 
the checksum generated. 

If the checksum matches the one in the 
magazine, then go on to the next program line. 
Otherwise, enter the command E (edit) and 
press RETURN. The line you just typed will 
appear in the typing window, where you may 
edit it. When you think the line has been cor- 
rected, press RETURN, and it'll be 
reevaluated. 

Note: You may call up any line previously 
typed, with the command E followed by the 
number of the line you wish to edit. For ex- 
ample, E230 will print Line 230 in the typ- 
ing window. Do not attempt to edit any 
program lines numbered 32600 and higher. 
These lines fall within the BASIC Editor n 
program. 

If you're using BASIC abbreviations, the 
two versions of the command E work slightly 
differently. The command E, without a line 
number, will call up the line exactly as you 
typed it. When you append the line number, 
the line will be printed in its expanded (un- 
abbreviated) form. 

Leaving the Editor 

You may leave BASIC Editor n at any time, 
by entering either B (BASIC) or Q (quit). If 
you type B, the Editor will return you to BAS- 
IC. Enter LIST to review your work, if you 
wish. Note that lines 32600 and above are the 
Editor program. Your work will appear be- 
fore these lines. To return to the Editor, type 
GOIV 32600. 

Type Q, and you'll be asked if you really 
want to quit. If you type Y, the Editor pro- 
gram will be erased from memory, and you 
may then save your work in any manner you 
like. If you type A', the Q command will be 
aborted. 



Large listings 



If the program you're entering is particu- 
larly long, you may need to take a break. 
When you want to stop, type Q and press 
RETURN, then save your work to disk or cas- 
sette. When you're ready to start again, load 
the program you were working on, then load 
BASIC Editor H with the ENTER command. 
Type GOTO 32600, and you're back in 
business. 
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The post-processor 

Many people may not want to use BASIC 
Editor n when entering a program listing, 
preferring, instead, the Atari's built-in editor. 
For that reason, BASIC Editor II will allow 
you to check and edit your programs after 
they've been typed. 

To taice advantage of this option, type any 
magazine program in the conventional man- 
ner, then save a copy to disk or cassette (just 
in case). With your typed-in program still in 
memory, load BASIC Editor 11 with the 
ENTER command, then type GOID 32600. 

Respond with A' to the "abbreviations" 
prompt. When the Editor appears on your 
screen, enter the command P (post-process), 
and the first program line will appear in the 
typing window. Press RETURN to enter it into 
the Editor 

The line will be processed, and the check- 
sum, along with the program line, will be 
printed in the upper window. If the checksum 
matches the one in the magazine, press 
RETURN twice, and the next line will be 
processed. 

If you find you must edit a line, enter the 
conmiand E, and the line will be moved back 
to the typing window for editing. 

When the entire listing has been checked, 
you'll be asked if you wish to quit. Type Y 
and press RETURN. The Editor program will 
be removed from memory, and you may then 
save the edited program in any manner you 
wish. 

Murphy ^s Law 

Anyone who's been associated with comput- 
ing knows this is the industry Murphy had in 
mind. You may find that, after typing a pro- 
gram with BASIC Editor II, it still won't run 
properly. There are two likely causes for this. 

First, it may be that you're not following the 
program's instructions properly. Always read 
the article accompanying a program before at- 
tempting to run it. Failure to do so may present 
you with upsetting results. 

Finally, though you can trust BASIC Edi- 
tor n to catch your typos, it can't tell you if 
you've skipped some lines entirely. If your 
program won't run, make sure you've typed 
all of it. Missing program lines are guaran- 
teed trouble. 

One last word: Some people find it an un- 
necessary and nasty chore to type REM lines. 
I don't condone the omission of these lines, 
since they may be referenced within the pro- 
gram (a bad practice, but not unheard of). If 
you want to take chances, BASIC Editor II is 
willing to comply. 



Listing 1. 
BASIC bsting. 



3260B IF FL THEN J2616 

32602 DIM LS{ll5),5gSCllS),C2$t2J,B$(l 

15),MS(119),5SC98),ESC69),0S(1) !FL=:1:S 

TMT0B = PEEK{136)tPEEKtl37))t256 

32604 GRAPHICS BIPOKE 710, : P-B : ftORzO ! 

? "ULLOM 0BBREUI«TI0H5"; IINPUT ft$:IF A 

S = "Y" OR lii-"V" THEN flBR = l 

32606 BS(1)=" ":BS(11S)=" "!B$C2)=BS 

32616 OPEN tll7,4,B,"El";LS=" "1G05UB 3 

2662;5T(inT = 

32618 POKE 766,1;P0KE 83, 39 ! POSITION 1 

,3:IF LEN(L$)<39 THEN ? LS:GOTO 32624 

32620 IF LEHCL$)<77 THEN ? L$tl,3B)!? 

LSt39,LEN(L«J) IGOTO 32624 

32622 ? LS(1,38)!? LSt39,7B)l? L$C77,L 

EN(L$)] 

32624 POKE 752,0lP0KE 766,0!P0KE 5S9,3 

4!P0KE 82,1;P0KE 83 , 38 : POSITION 8,10!? 

" "J!INPUT nl7jLS!P0KE 766,1 
32626 IF (LS="P" OR L$="p") AMD 5T0RT= 
THEN P=l!LS:"" 

32628 IF LS="E" OR L$="e" THEN E=l ! POS 
ITION 1,10!? SUS GOTO 32624 
32630 IF LS="0" UB LS="q" THEN 32698 
32632 IF L5="" OND P:1 THEN 32686 
32634 IF L5="" THEN 32624 
32636 IF L$="B" OR LS="b" THEM GRAPHIC 
5 817 "TYPE 'GOTO 32608' TO CONTINUE" I 
END 

32638 IF L$fl,l)="E" OR L$tl,lJ="e" TH 
EN E=llTflOP 32624!EL=UALtL$C2)) IPOSITI 
ON 1,9!LIST ELiGOTO 32624 
32640 SU«=LS!TR0P 32624 1 X=WAL tLS) 
32642 ST0RT=11IF P AND NOT E THEM 126 
52 
32644 G0SU8 32674!lF NOT ABH OR P THE 

32646 POKE 766,6:? CHR$ tl2S) ! POSITION 
0,3!L=0ALCLS) !LI5T LI? I? !? "CONT"!L$ 
= BS 

3264B POSITION B,81P0KE 842,13!5T0P 
32650 POKE 842, 12 I A = U5R (ADR CSSi , ADR tL* 
1,4) !L$=LS tl,A) 

326S2 CHK5UM=USRtADRtMS> , ADR tLS) ,LEN(L 
$)) ICHK5UM=CHKSJMtPEEKC1542>»6S536 
32654 CHK=CHKSUM-<INT(CHK5UM/676)«676) 
!HI = INT(CHK/26) ! LO = CHK- CHI»26J !C2SCH = 
CHBS(HIt6S) lC2SC2)=CHRS(L0t6S) 
32656 IF NOT P OR E THEN E=B ! GOSUB 32 
662:IF NOT P THEN 3266B 

32658 POKE 83,39!P0KE 752,l!F0R K=3 TO 
5!P0SITI0N 1,K!? BS(1,3B) IPOSITIOM I, 
K+7!7 BS(1,38) !MEKT KlPOKE 83,38 
32668 POKE 766,liP0KE 83, 38 : POSITION 6 
,7!? C2«!P0KE 752,0!G0T0 3261B 
32662 GOSUB 327B2!P0KE 766,8!P0KE 752, 
1!? "1S"!P0KE 82,llDL = PEEKt560>+256»PEE 
K(561)«4 

32664 POKE DL-1,781P0KE DL*Z,6lP0KE DL 
t3,112!P0KE DLt4,112lP0KE DL+5,112!P0K 
E DL+13,112!P0KE 0Ltl4,112 
32666 POKE DLt22, 112 ! POKE DLt23,112!P0 
KE DLt24,65!P0KE DLt25, PEEK (560J 1 POKE 
DLt26,PEEK(561) iPOKE 83 ,39 
32668 POSITION 20, Oi? ' 
'! POSITION 0,7J_?_" 




POSITION 1,7 

32672~P0KE' 559 , 34 1 RETURN 

32674 GRAPHICS OIPOKE 559,8IP0KE 766,1 

iPOKE 82,0!P0KE B3 , 39 IPOSITION 0,31? L 

S!' !? !? !? "CONT"IP05ITION 8,8 

32676 POKE e42,13!5T0P 

32678 POKE 842,121TRAP 32682 ! ArUSR (ADR 

(E5),UAL(LS)1 IIP A=4 THEN POP IGOTO 32 

32680 RETURN 

32682 GOSUB 3266Z!50UND 0, 75, 10, 8 1 FOR 

K=l TO 20!NEKT XiSOUND , 0, 0, ! P05ITI0 

N 1,317 "5YNTAK ERROR!"!POKE 766,1 

32684 POKE 83, 38 ! POSITION 1,1B!7 SUSsG 

OTO 32624 

32686 LINE=PEEK tSTMTABJ tPEEK (STMTAB + ll 

i(256!IF LINE>32S99 THEN 32690 

32688 0FS = PEEK(5TMTABt2) I 5TMTAB = STMTAB 

♦OFSiPOSITION 1,9!LIST LINEIGOTO 32624 

32690 POKE 766,O!P05ITI0N 1,1017 "READ 

Y TO 0UIT")!INPUT ASlIF AS<>"Y" THEN P 

OSITION 1,10!? B$(l,381 iGOTO 32624 

32692 GRAPHICS 0:7 I? 1? :FOR K=326BB 

TO 32636 STEP Z!? X:NEXT K:? "COMT":P0 

5ITI0N 0,0;POKE 842,13:ST0P 

32694 POKE 842,12!GRAPHICS 8:7 !? :? I 

FOR N=32638 TO 32674 STEP 2:7 KiNEXT X 

1? :? "CONT":POSITI0N 8,9 

32696 POKE 84Z,13:5T0P 

32698 POKE 842, 12 ! GRAPHICS Bl? 17 1? 1 

FOR X=32676 TO 32702 STEP 2:7 X:NEXT X 

:? I? "POKE B4Z,12"1P0SITI0H B,B 



32700 POKE 842,13tST0P 

327B2 POKE 16,11Z:P0KE 53774,112 : RETUR 

N 



CHECKSUM DATA. 

(see issue 39's Unicheck] 



32600 DATA 6,665,923,757,809,171,225,* 
98,532,499,518,267,912,144,735,8453 
32638 DATA 97,358,238,693,706,878,317, 
127,36,597,238,258,182,430,168,5315 
32668 DATA 064,953,472,385,887,724,72, 
687,908,736,625,612,672,184,891,9672 
32698 DATA 0,856,85,949 



Listing 2. 
BASIC listing. 

10 DIM L$(1ZB],HL$(119>,A$(1] 
20 GRAPHICS B:P0KE 710,0:? "QISK OR QA 
S5ETTE"; :IMPUT AS:IF AS<>"C" AND AS<>" 
D" THEN 20 

30 IF AS="C" then 58 

40 ? "PLACE FORMATTED DISK IN DRIVE"!? 
"THEN PRESS RETURN" : INPUT LSlOPEN HI, 
8,0,"D!ML.D«Y":G0T0 60 

50 ? 1? "READY CASSETTE, PRESS RETURN" 
;!INPUT LSlOPEN ni,8,B,"C!" 
60 LS="32608 MS(l)="lLS{13)=CHR$t34) 
70 N=119!C05UB 130 : LS (14} =ML* (1, 58) 1L$ 

(len(lS)+1)=chhS(34] :? ai;L$ 

BO LS(1)="32618 M$ (59) =" : L« (14) =CHRS (3 
4) :L$(15)=ML$(59) !LS(LEHtLS)+l)=CHR${3 

4) :? ni;LS 

90 L$(l)="32612 5S="!LStlO)=CHRS(34) 

100 MLS= N=98!G0SUB 138 ; LS (11) =MLS : L 

S(LEN(L$)+1)=CHR$(34) 1? tll;L* 
110 LS(1)="32614 ES="!LS(10)=CHRS(34) 
120 ML$="":N=69: GOSUB 130 : LS (11) =ML$ : L 
$(LEN(LS)tl)rCHR$(34) 17 BliLSiEND 
130 FOR >(:l TO NlREAD A !MLS tX)=CHR${A) 
:NEXT X:RETURN 

140 DATA 104,104,133,204,104,133,263,1 
04,104,133,205,169,0,141,3,6,141,2,6,1 
41,4,6,141,5,6 

ISO DATA 141,6,6,238,3,6,32,68,218,172 
,2,6,177,203,133,212,32,178,217,32,182 
771 ^7 fifi 7XA 

160 DATA 173,3,6,133,212,32,170,217,32 

,219,218,32,210,217,165,212,141,8,6,16 

5,213,141,1,8,24 

170 DATA 173,8,6,189,4,6,141,4,6,173,1 

,6,189,5,6,141,5,8,144,3,238,6,6,238,2 

188 DATA 6,172,2,8,196,205,208,176,173 

,4,6,133,212,173,5,6,133,213,96 

190 DATA 104,104,133,204,104,133,203,1 

04,104,141,255,6,169,0,133,213,216,165 

,88,133,285,165,89,133,286 

200 DATA 174,255,6,24,165,205,105,46,1 

33,205,144,2,230,206,202,208,242,160,8 

,177,285,281,64,144,18 

218 DATA 281,96,144,19,281,128,144,18, 

201,192,144,6,201,224,144,7,176,8,24,1 

05,32,144,3,56,233 

228 DATA 64,145,283,288,192,114,240,2, 

208,215,177,203,201,32,208,3,136,200,2 

47,200,132,212,96 

230 DATA 104,104,141,254,6,104,141,253 

,6,169,0,133,213,216,165,136,133,205,1 

65,137,133,206,160,8,177 

240 DATA 205,205,253,8,208,8,266,177,2 

65,265,254,6,240,15,160,2,177,205,24,1 

61,265,133,285,144,228 

250 DATA 238,266,176,224,166,4,177,265 

,281,55,248,4,160,6,246,6,132,212,96 



CHECKSUM DATA. 

(see issue 39's Unicheck] 

16 DATA 263,265,455,844,294,973,652,27 
8,978,797,278,275,835,269,361,7639 

i8 DATA 355,94,254,428,935,848,586,41 

,974,564,5435 
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BOOT UP TO BIG SAVINGS! 

I YEAR FOR ONLY $28 

SAVE $19 OFF THE COVER PRICE 

1 YEAR WITH DISK ONLY $ 1 05 

FIEMFIk.C3E 



COMPUTING 



SAVE TIME AND MONEY 
SUBSCRIBE TO ANALOG 

SAVE $19 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ANALOG 
DELIVERED DIRECT- 



LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS. 
GET THE MOST OUT 
OF YOUR COMPUTER 

SUBSCRIBi TO 

ANALOG 

TODAY 



n 1 YEAR ® $28 - SAVE $19 
FOREIGN - ADD $7 PER YEAR 

D 1 YEAR WITH DISK @ $105 

FOREIGN - ADD $15 PER YEAR 

D PAYMENT ENCLOSED D BILL ME 

CHARGE MY: D VISA D MC # 



MCMYY 



EXPIRATION DATE SIGNATURE 

MONEY BACK ON ALL UNUSED PORTIONS OF SUBSCRIPTIONS IF NOT SATISFIED 



MAKE CHECK PAYABLE TO L F,P,. INC.. PO. Box 16927. N Hollywood. CA 91515 
Youf lifsl issue will arrive in 6 TO 8 weeks. 



Offer expires 3/27/89. 



WATCH FOR IT! 



BUY'SELL.TRADE 



BUY.SELL-TRADE 



BUY^SELL-TRADE 



Computer Repeats^ Inc. 



TRADE FOR ANYTHING WE SELL! 



Atari isoxe 




with trade-in of 800XL, 810 Drive, 1030 Mdm. 
$CALL tor your system 



ALL ORDERS PROCESSED IN 24 HRS! 



Used 



SSOST FM Computer $399 1 (MOST Computer 
Alwl SF314 Olve $175 130XE Computer 
4GO-16K Computer $29 800XL Computer 



Mas 

(119 



Modems from (19 Atari 1030 Modem (3S 

lOSO Drive (139 Atari 1027 LQ Pm. (79 

IBM Proprlnter-tl (189 OklmalelOw/PIP 

Indus GT AT (139 Slave Drives from (3S 

Atari eSO Interface (69 Modems from (19 

Oiglluer/Synllis trom (20 Software/Booki from (1 



New 



Atari XE Game System 

with $75 Free Sftwr and light gun 




with trade-in of 130XE OR add $29 with 800XL 
$CALL for your system 



Atari 520ST fm 

with Double Sided Drive 




$329 

NEW 



with trade-in of 800XL, 1050, Color Monitor 
$CALL for your system 



All reference* to tnde-ine uaume equipmBnt lo be in good 
iNorklng condlticn. Shlpphg/hindHng will be idded to iH 
price*. Ho ■dditional chirge for credit eird* or COD. Mall wd*r 
price* ihoiNn. 

WE CHECK FOfl CflEOIT CARD 1HEFTI 



1040STPIU8+CPU (719 520ST n» mono sys(65e 

Atari SF314 Drive (209 256KDRAM $11 

Atari 6SXE Computer (109 SC1224color Mon. (325 

US Doubter w/DOS (39 XF^551 Drive (179 

1802C Color Monitor (189 Compulereyet Dgtzr(119 

Atari SX-212 Modem (89 Avalex 1200ttC 

Avatex2400HC (199 Happy Rev. 71 

2SeK upgrades Ok from $3S R-Time 8 Cartridge $49 

Star NX-1000 144cp8 $189 ICD R-Tlme 8 Cart (49 



(Cash for your equipment 

Thousands of software & booli titles 

Plus, MUCH, MUCH MORE! 

5721 Arapahoe Suite IB 
Boulder, CO 80303 



Atari XF-ssi 




$119 

NEW 



V800-347-3457|c^ 

24HR Mdm Sftwr Quotes- 1-303-939-fi174 Ouestns* 1-303-939-8144 ^^ 



with trade-In of 1050 Drive OR add $20 with 810 Drive 
(CALL for your system 



Authorized Sales & Service for 
A 
iii„^,V„.,-;,„,j;;£ 
ComDuters and Accessories. 



A 



VISA MASTERCARD DISCOVER AMERICAN EXPRESS COD 



CIRCLE #109 ON READER SERVICE CARO. 



JANUARY A.N.A.L.O.Q. Computing 



'. mJs 






Dive Bomber 

Epyx 

600 Galveston Drive 
Redwood City, dA 94063 
$49.95, Color Only 



Reviewed by John S. l\/lanor 

I flew high above the churning waves. A 
ship came into view. I pushed the stick for- 
ward, putting my Blackhawk dive bomber 
into a steep dive. At just the right distance 
from the ship, I released my single torpedo. 
I watched as it sped through the waves to 
strike the enemy ship in its center, explod- 
ing and sending that ship to the bottom of the 
ocean. 

Dive Bomber, from Epyx, is a slick simu- 
lation of airborne naval warfare during World 
War II. The premise is that you and your 
plane, the first of its kind, are on loan to the 
British. The Bismarck has just sunk the HMS 
Hood. Your main purpose is to sink the 
Bismarck— \o get revenge. Dive Bomber takes 
you through all the steps in flying the Black- 
hawk off the aircraft carrier Ark Royal. You 
learn the procedures for takeoff, flight and 
landing. Then you can try shooting down ene- 
my planes and sinking enemy E-boats or 
U-boats. 

At the start of the game you choose to prac- 
tice or fly one of five real missions. In prac- 
tice you can try flying, landing, taking off or 
attacking the Bismarck. You draw straws to 
choose a real mission. During your mission 
you must return to the Ark Royal to refuel, 
rearm and to make repairs. While you are in 
the air, enemy forces will try to sink your car- 
rier. So you have a double duty: Carry out 
your mission while protecting the Ark Roy- 
al; otherwise, you may run out of fuel and 
ammo, and be forced to ditch your plane at 
sea. 

There are four different screen locations in 
your Blackhawk dive bomber. These are the 
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Pilot's, Engineer's, Navigator's and Tail Gun- 
ner's screens. The Pilot's screen is your main 
flying screen. You see the ocean (sort of like 
the stars in Star Raiders), your control stick 
and gauges from the window. There's also a 
lever for dropping your torpedo. The En- 
gineer's screen is used for preparing for 
takeoff, idling the engine, switching fuel 
tanks, landing and more. The Navigator's 
screen shows a map of the area. Geographi- 
cal locations like the "Isle de Gilligan" are 
marked on the map. Enemy ships, planes and 
mines are clearly displayed. U-boats don't 
show up until they are surfaced. The Tail 
Gunner's screen allows you to shoot at ene- 
my planes that creep up on you from behind. 
There is a screen selection box that will light 
up a number for a screen that needs your at- 
tention. 

Dive Bomber is fairly easy to learn to play. 
You can use a joystick and keys or a mouse 
and keys to control the Blackhawk. The 
mouse gives you a better feel for the plane. 
Using it made me feel like I was gliding 
through the air. When I went into a dive, I 
feh my stomach lurch. 

I found it difficult to locate and destroy 
enemy ships. After several days of practice 
I became better at this, though I still usually 
lost the Ark Royal to enemy U-boats. Sink- 
ing the Bismarck is also a difficult goal to ob- 
tain. Even if you get close enough to drop 
your torpedo, you will probably miss every 
time at first. I have found that waiting until 
you're really close and then putting the Black- 
hawk into a dive helps your torpedo's ac- 
curacy. 

After you drop a torpedo, the screen 
changes to a sideways view of the Bismarck 



with your torpedo bearing down on it. You 
will either see it explode and sink, or get a 
message that you missed. Either way, your 
mission is over. 

The graphics and sound in Dive Bomber 
are slighUy above average. The game loads 
with digitized pictures and voices from World 
War n. When you land on HciQArk Royal, you 
roll past the control tower. Floating mines ex- 
plode in a glorious shower of fire when hit 
by your guns. Other than the Bismarck, 
though, the enemy ships could have been 
more detailed. 

Dive Bomber comes on two single-sided 
disks with a clear and detailed instruction 
booklet. Survival hints and some information 
on the Blackhawk and Bismarck are includ- 
ed in the booklet. 

One complaint I have about Dive Bomber 
is the use of the escape key on the Atari ST 
to quit a game and return to the main menu. 
I hit Escape many times when I wanted to hit 
1 for the Pilot's screen. My game was end- 
ed! Arrgghh! My solution has been to use 
only the ST's keypad for entering screen 
numbers. 

Dive Bomber is a good game overall. 
However, it is not a graphic spectacular. It 
is just a good, solid, interesting naval-air 
combat simulation. If that's what you are 
looking for, then Dive Bomber will please 
you. 

John S. Manor is a freelance writer who 
has had an Atari computer since 1981. His 
collection of computers now includes an 800, 
an 800XL, a 130XE and a 520ST. His other 
interests include astronomy and reading 
science fiction. 
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by Mark Odendahl 

One of the features missing from Atari 
BASIC is a PRINT USING state- 
ment. In other BASICs, this com- 
mand formats numeric output so 
printouts and screen displays are 
more readable, and is especially useful when 
printing data in columnar format. The 
machine-language subroutine described in 
this article simulates the PRINT USING 
function. 

Listing 1 contains a BASIC program that 
will create the file NUMED.SRC, which is 
the BASIC subroutine that places the num- 
ber editor M/L subroutine into a string vari- 
able. Type in the program (using BASIC 
Editor II to check your work), save a copy 
to disk and then run it. After a short delay 
while it reads the data into a string, the pro- 
gram will write the file NUMED.SRC on the 
disk in Drive 1. NUMED.SRC is then ready 
to be ENTERed into your own programs. 

Listing 2 contains a sample program that 
demonstrates how to use the M/L subroutine. 
To see how the subroutine can improve the 
"look" of numerical output, type in the pro- 
gram, merge in the NUMED.SRC file and 
then run the resultant program. 

Listing 3 is the assembly-language source 
code. You don't need to type it in. It is in- 
cluded only for those people who are interest- 
ed in assembly-language programming. 

To use the subroutine in your own pro- 
grams, you must set up a string variable con- 
taining an edit mask. An edit mask is simply 
a set of characters that tells the M/L subrou- 
tine how to format the numbers. The edit 
mask in the sample program is EM$. 

The valid symbols for the edit mask are: 

Space— Inserts a space into the output. 
Most effective when used to insert spaces be- 
tween multiple fields being formatted by the 
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same print statement. 

Percent sign ('%J— Inserts a percent sign 
into the output. 

Slash f/j— Inserts a slash into the output 
(useful for dates). 

Period f.j— Inserts a decimal point into the 
output, even if none exists in the number be- 
ing formatted. 

Letter zee (Zj— -Replaces leading zeros with 
blanks, otherwise inserts a digit from the 
number into output. Not valid to the right of 
the period in the edit mask. 

Dollar sign (.?)— Replaces leading zeros 
with blanks, except the leftmost leading zero 
which is replaced with "$". Not valid to the 
right of the period in the edit mask. 

Number sign (#j— Forces leading or trail- 
ing zeros to print. 

Comma Cj— Inserts a comma in the out- 
put, only if a digit will be printed to the left 
of this position. 

Minus sign f-J— If the number is negative, 
a minus sign will be inserted at this position, 
else a space will be inserted. 

Guidelines for using 
the Number Editor 

A. The subroutine call (X=USR) and the 
PRINT statement containing the edit mask 
must be on the same line, with the PRINT 
statement Immediately following the USR 
statement. 

B. The edit mask must be specified before 
any of the variables to be printed. 

C. Any number of variables can be format- 
ted in the same statement, but there is a limit 
of 128 characters of output. The number of 
output characters is computed by multiply- 
ing the length of the edit mask by the num- 
ber of variables and constants being 
formatted. 

D. Only numeric variables and numeric 



constants can be edited. Strings, arrays and 
expressions are not allowed. Exception: A 
minus sign may be specified before a varia- 
ble or constant. 

E. The number of an open lOCB can be 
specified in the usual manner; that is: 100 
X=USR(ADR(SBR$));?#2,EM$,A,B. The 
lOCB number may be contained in a numeric 
variable. Use a comma, not a semicolon, af- 
ter the lOCB specification. 

F. If a number is negative, a minus sign 
will not print unless a minus sign is explicit- 
ly stated in the edit mask. I prefer to have the 
minus sign print after the number. 

G. If the edit mask contains fewer digits 
(total of $, # and Z) before the decimal point 
than the number does, the output will be 
filled with * for the length of the edit mask. 
Digits after the decimal point are dropped if 
the edit mask does not allow for them. 

H. No rounding is done by the subroutine. 

I. If your printer is not set to auto-line feed, 
remove Line 27080 from the source subrou- 
tine (NUMED.SRC). This will cause the 
M/L subroutine to send line-feed commands 
to the printer. 

While this subroutine is limited in its 
scope, it will produce much neater printouts 
than a regular BASIC PRINT. Screen displays 
can be made more orderly with this subrou- 
tine, and printouts with long columns of data 
will be much more readable. Some ex- 
perimenting will enable you to learn what 
combinations of characters in the edit mask 
will meet your needs. 

Mark Odendahl is the supervisor of the 
technical support group for a major airline 
in Minneapolis. He has been programming 
mainframes for 15 years and micros for five 
years. He has a strong interest in the 
development of productivity tools for 
programmers. 
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LISTING 1: BASIC 

FH 1 REM NUHBER EDITOR BV MARK ODENDAHL 
DR 2 REH COPYRIGHT 1988 ANALOG COMUTING 
¥U 3 REM Creates the source file containi 

ng the nuwber editor subroutine string 
OM IB DIM A$(999),QC59),Et5BJ :FOH I=fl TO 

58:QCI):B:E(I)=9:NEXT I 
RM 45 Q=B!E=B 
AG SB FOR l:l TO 467:READ AlIF A-J4 THEN 

A::32;QrQ+l:0(03:I 
DG 55 IF flrl55 THEN A:32!EzE+llECE)=I 
PQ BB ASCI,I)::CHR$tA):NEHT I 
IP 75 POKE 766,1 

BH ZBB OPEN tt2j 8jB/'D:NUMED , 5RC"lLN=Z7BBB 
51 285 ? «2;LNJ" DIM 5BRS(467)"lLNrLN+lB 
YC 21B FOR Izl TO 6!B=I*9B-89!ErI*9B :IF I 

=6 THEN Er467 
HH 22B ? tt2;LN;" SBRJ t"jB;","jEj")=";CHR$ 

CS4)JASCB,E)JCHR$C34) 
CO 23B LNiLN+lBiNEXT I 
GU 258 FOR 1:1 TO 5B!lF 0(I)>B THEN C=Q(I 

)!? 82JLN;" 5BR5("JCJ"/'JC;")ZCHR$(343 

"!LN=LM+1B 
OR 255 IF Etl)>8 THEN C=EtI)!? «2;LN;" SB 

R$t"jC;"/';Cj"):CHR$(155)"!LN=LN+iB 
GE 268 NEXT I 
YL 278 ? n2;LN;" REH REMOVE NEXT LINE IF 

YOUR PRINTER DOES NOT HAVE AUTO LINE F 

EED"!LN=LN+1B 
YT 288 ? «2;LN;" SBRJt433,433)=CHR$t234)" 

;LNrLN+lB 
KS 295 ? «2;LN;" RETURN" 
OB 388 CLOSE tt2:P0KE 7ee,8:END 
LL 1888 DATA 169,253,133,287,169,3,133,28 

8,162,8,134,215,232,134,218,164,167,17 

7,138,133,167,288,132,212,288 
EE 1818 DATA 126,198,218,288,152,113,138, 

133,212,288,152,181,138,133,285,165,13 

9,185,8,133,286,136,177,138,16 
FF 1828 DATA 77,248,229,41,127,162,3,18,3 

8,284,282,288,258,24,185,2,144,2,238,2 

84,24,117,134,133,283 
FT 1838 DATA 165,284,117,135,133,204,168, 

B,198,218,24B,24,48,1B4,28B,177,2B3,72 

,16,57,152,185,6,133,212 
TC 1848 DATA 288,152,162,4,288,228,184,23 

8,218,288,41,24,177,203,181,148,133,28 

5,208,177,283,181,141,133,286 
UN 1858 DATA 288,177,283,168,136,132,213, 

162,8, 177, 285, 281, 46, 248,18,281, 35, 288 

,1,232,136,16,242,162,8 
WJ 1860 DATA 134,215,160,8,132,284,132,21 

4,132,228,164,212,288,132,212,177,138, 

48,140,281,18,248,243,281,15 
VF 1B70 DATA 248,138,144,172,201,28,248,1 

79,144,188,238,220,288,227,144,217,288 

,215,177,283,133,219,248,17,165 
KN 1B8B DATA 228,248,4,73,128,133,219,41, 

127,56,233,63,18,24,181,215,133,217,28 

8,177,203,41,248,133,221 
UP 1898 DATA 165,213,133,216,164,216,177, 

285,281,32,248,12,281,37,240,8,281,46, 

240,4,281,47,288,38,164 
BX 1188 DATA 216,145,207,198,216,16,228,1 

64,217,48,11,248,9,169,42,164,213,145, 

207,136,16,251,56,165,207 
AF 1110 DATA 181,213,133,287,144,164,238, 

288,288,168,144,102,281,44,288,25,166, 

217,48,2,288,208,136,177,285 
PW 1128 DATA 281,35,288,4,169,44,288,197, 

281,98,288,69,169,32,288,189,281,45,28 

8,6,166,219,48,181,16 
KU 1130 DATA 242,164,217,48,43,248,41,198 

,217,192,11,176,31,192,2,208,6,165,221 

,208,2,198,217,136,152 
JR 1140 DATA 74, 168, 2BB, 177, 283, 144, 4, 41, 

15,176,4,74,74,74,74,9,48,288,136,169, 

48,208,132,201,35 
BI 115B DATA 240,248,201,90,240,187,164,2 

14,208,183,230,214,288,234,168,184,18, 

10,10,10,170,169,11,157,66 
ST 1160 DATA 3,152,160,0,281,21,240,30,18 

9,64,3,281,9,240,4,281,6,208,9,169,9,1 

57,66,3,169 
01 1170 DATA 155,208,7,169,18,145,287,268 

,169,13,145,207,200,152,24,101,207,56, 

233,253,157,72,3,169,0 
Ift 1180 DATA 157,73,3,169,253,157,68,3,16 

9,3,157,69,3,32,86,228,96 



LISTING 2: BASIC 



■■:GOSUB 5B0 
"IGOSUB 500 
"IGOSUB 500 



MK 3 REM TEST NUMBER EDITING SUBROUTINE 

NJ 4 REM 

NK 5 REM 

CM 10 DIM EMS (25) 

PJ 20 GOSUB 27000 

BU 97 REM 

BH 98 REM 

BY 99 REM 

EO 188 EMS="ZZZZZ,ZZZ.««- 

IC 110 EM$="SS$$$, $$$.««- 

QC 128 EM$="Jtwmtt,mm.tm 

W 138 EMS="ZZZZZZZZZ,tm«tt- ":G0SUB 500 
FA 150 ? "DATE EXAMPLE "; !X:U5R tADR tSBR$) 

3 : ? "im/tW/lffl ",92686,122586 
ZO 160 ? "OVERFLOW EXAMPLE "J :X=USR(ADRC5 

BR$3) :? "tW«",1000 
NR 200 END 
5C 497 REM 
5F 498 REM 
SI 499 REM 
CE 500 RESTORE 

IM 510 FOR 1=1 TO IBlREAD A,B 
SO 520 X=U5RCADR(SBR$))!? EM$,fl,B 
GB 530 NEXT I 
JG 540 ? :? "PRESS ANY KEY TO CONTINUE"!0 

PEN tt3,4,B,"K;"!GET 83,K!CL05E tt3 
ZL 550 RETURN 
BC 1000 DATA 100, .509 
DE 1018 DATA 4567.34,1234567 
AK 1BZ8 DATA 23, .56789 
YN 1830 DATA 23.456,98.6 
UU 1840 DATA 3.17, .8886 
PB 1858 DATA 24,190 
LU 1060 DATA 17.5,0 
GM 1070 DATA -1,25 
QG 1888 DATA 3898,3881 
AD. 1898 DATA 888,1848 



LISTING 3: ASSEMBLY 



19 

29 

39 

49 

59 

69 

78 

80 

90 

0100 

8118 

8128 

8138 

8148 

8158 

8168 

8178 

8188 

8198 

8286 

0210 

0220 

0230 

8248 

8258 

8268 

0270 

0280 

0290 

0388 

0310 

9320 

9330 

9340 

9350 

9368 

9378 

9388 

8398 

0488 

8418 

8428 

9438 

0448 

8458 

8468 



.SET 1,10 

.TAB 8,12,30 

.TITLE "NUMBER EDITOR" 

File nane is NUMED.H65 

This is a subroutine called froH 
BASIC, Its purpose is to 

SiHUlate the BASIC PRINT USING 

* statenent. 

SAMPLE CALL: 
X=USR(ADRCS6R$11 iPRINT E$,A,B 



The routine in SBRS looks at 
E$ to deterMine how to forwat 
A and B. 



* E$ contains the edit Mask. 

* A S B in this exanple are the 

* variables to be printed. There 

* nai,! be one or More variables 

* and/or nuMeric constants. 
Strings other than the edit 
Mask are not allowed. 



Expressions are not allowed, 
except that a variable or 
nuneric constant May be 

* preceded by a Minus sign. 
» 

* The edit Mask May be preceded 

* by an lOCB specification, 
» using either a variable or 

* constant. 
* 

* All paraneters Must be 

* separated by coMMas; the line 

* May end with a seMi-colon to 

* suppress the line feed. 
« 

* See the BASIC article and 

* docuMentation for details on 

* the uses of this subroutine. 

* Zero page usage 

* $CB and $CC are used as an 
» un-naMBd pointer. 

JANUARY A.N.A.L.O.B. Computing 



6476 
6486 
6496 

esee 

8516 
6526 
6526 
6546 
6556 
6566 
6576 
6586 
6598 
6666 
6616 
6626 
6636 
8648 
6656 
6666 
6678 
6688 
6696 
6788 
8718 
6728 
6738 
8748 
8758 
6766 
6776 
6786 
8798 
8886 
8818 
B82B 
9836 
6846 
6858 
6866 
6878 
6888 
6898 
6986 
8916 
6926 
8936 
8946 
8958 
6966 
8976 
8988 
6998 
1866 
1816 
1826 
1836 
1648 
1858 
1866 
1676 
1886 
1896 
1188 
1118 
1126 
1136 
1146 
1158 
1168 
1178 
1188 
1198 

izee 

1219 
1226 

1238 
1246 
1256 
1268 
1278 
1286 
1296 
1366 
1318 
1328 
1336 
1346 
1356 



.ORG $CD 
EDIT.MftSK .DS 1 
EDIT, MASK. LO .= EDIT, MASK 
EDIT,MftSK.HI .DS 1 
OUTPUT .D5 1 
OUTPUT. LO .z OUTPUT 
OUTPUT. HI .D5 1 

.ORG $D4 
SftUEY .D5 1 
EDIT. LENGTH .D5 1 
FLOAT .D5 1 
EDIT. DECIMALS .DS 1 
EDIT.PTR .DS 1 
NUMBER. PTR .DS 1 
STATE .DS 1 
SIGN .DS 1 
MINUS. FOUND .DS 1 
FIRST. DIGIT. UALUE .DS 1 
* 

* Printer related equates. 

CASSETTE. BUFFER .= $fl3FD 
PUT. CHARACTERS .: 11 
PUT. RECORD .: 9 
CIO. ROUTINE .z $E456 
LINE. FEED .z 18 
CARRIAGE. RETURN .= 13 
EDITOR. DEUICE .: 6 
SCREEN. DEUICE .z 9 

» ATASCII Characters 

SPACE .z 32 
NUMBER. SIGN .= 'tt 
DOLLAR. SIGN .z '$ 
PERCENT .z ••/, 
ASTERISK .:; '* 
COMMA .= ', 
MINUS, SIGN .= '- 
DECIMAL, POINT .= ' . 
SLASH .: '/ 
ZERO .1 '8 
Z .: 'Z 
RETURN .= 155 
* 

* BASIC token values 

STH. CONSTANT .: 15 
SEPARATOR .z 18 
SEMI. COLON .= 21 
lOCB.IND .= 28 
MINUS .= 54 

.ORG $8866 

* Nornally, subroutines pull the 

* nuMber of arguments off the 

* stack; howewePj we are going 
» to use the current stack 

* elextent as the lOCB nuHber 
« for printing. Since this 

* subroutine has no paraneters 

* passed to itj we are 

* defaulting to lOCB «6, the 
» Screen Editor. 

* 

* No error checking is done to 

* verify that the nuHber of 

* arguhents is zero. 



Use the Cassette Buffer as the 
Print Buffer. 

LDA « <Cfl55ETTE. BUFFER 
STA OUTPUT. LO 
LDA tt >CA55ETTE. BUFFER 
STA OUTPUT. HI 

Initialize work areas. 



LDX »e 

STK EDIT. DECIMALS 
INK 

STK STATE 
» 

* $8A, S8B (STMCUR) points to 
» current BASIC line. 

# $A7 contains the displacewent 
» of the PRINT statewent. 

* 



1366 
1376 
1386 
1396 
1488 
1418 
1428 
1436 
1448 
1456 
1466 
1478 
1486 
1498 
1588 
1518 
1526 
1536 
1546 
1558 
1568 
1578 
1586 
1596 
1666 
1616 
1626 
1636 
1646 
1656 
1666 
1676 
1686 
1698 
1766 
1716 
1726 
1736 
1748 
1758 
1766 
1778 
1788 
1798 
1886 
1816 
1828 
1838 
1846 
1856 
1866 
1876 
1886 
1896 
1986 
1918 
1928 
1938 
1948 
1958 
1966 
1976 
1986 
1998 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2156 
2166 
2176 
2186 
2198 
2288 
2218 
2226 
2236 
2246 



TO use Y as an offset, load 
$A7. Get the displace«ent of 
the next BASIC instruction, 
and store this value back 
into $07, causing BASIC to 
think he has executed the 
PRINT stateMent. 

LDY SA7 
LDA ($8A],Y 
STA $A7 

IncreMent Y to point to the 
PRINT StateMent, save this 
value, and let's go do the 
printing ourselves. 

INY 

STY SAUEY 

BNE POINT. TO. NEXT 



STRING. CONSTANT 
Assune this is 



edit Mask, 



since this is the only string 
constant allowed. 

Set state to 6. 
IncreMent Y to point to the 
string length, then Move this 
pointer to A. Odd in the 
string length, and A now 
points to the last byte of 
string. Save this value. 

DEC STATE 

INY 

TYA 

ADC (S8A),Y 

STA SAVEY 

Point to first byte of string, 
Hove to A, add in the base, 
and we have the base pointer 
to the edit Mask. 

INY 

TYA 

ADC $8A 

STA EDIT. MASK. LO 

LDA $88 

ADC tt6 

STA EDIT. MASK. HI 

Now point Y back to length, 
retrieve the length, and go 
exaMine the edit Mask. 

DEY 

LDA C$8A),Y 

BPL GET. MASK. LENGTH 

Continue long branch 



5TRING.C0N5TANT.fi .z » 
BEQ STRING. CONSTANT 

* 

UARIABLE. TOKEN .= * 

* Turn off hi byte of token tt, 

* then shift 3 tiMes to 

* Multiply by 8 and get offset 
w in A and $CC. 

» 

AND tt$7F 

LDX tt3 
UAR.LOOP .= * 

ASL A 

ROL $CC 

DEK 

BNE UAR.LOOP 
* 

* NOW add 2 to point to 3rd byte 

* of variable entry in table. 
« This will be the Offset for 

* the edit Mask or the exponent 

* byte for a variable. 



CLC 



2256 
2266 
2278 
2288 
2296 
2386 
2316 
2326 
2338 
2348 
2356 
2368 
2376 
2388 
2396 
2466 
2418 
2426 
2436 
2448 
2456 
2466 
2478 
2486 
2496 
2588 
2518 
2526 
2536 
2548 
2556 
2566 
2578 
2588 
2598 
2666 
2618 
2628 
2538 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2716 
2726 
2738 
2748 
2758 
2768 
2778 
2788 
2798 
2868 
2818 
2826 
2838 
2846 
2856 
2866 
2878 
2886 
2896 
2988 
2918 
2928 
2938 
2948 
2956 
2968 
2978 
2988 
2996 
3668 
3818 
3826 
3838 
3846 
3656 
3668 
3878 
3688 
3696 
3186 
3116 
3126 
3136 



ADC tt2 

BCC POINT. TO. UALUE 

INC Sec 

POINT. TO. UALUE .z * 
W 

» Offset is in A (loJ and $CC 

* Chi]. Now add in base, If we 

* are processing a variable 

* token, the above code left 
» K=B, so the base is UUTP 

» C$86) . 

* If the token is a nuMeric 

* constant, then the base is 

* STMCUR (S8A), and that 

* routine set X=4. 

CLC 

ADC $86, X 
STA $CB 
LDA $CC 
ADC $87, X 
STA $CC 
LDY tt6 



* At this point, Y=6 to be used 

* as an offset. 

* $CB,SCC is pointing to either 

* the displacBMent of the 
string value for the edit 
Mask, or to the exponent byte 
of the nuMeric variable or 
nuMeric constant. 



Now check the STATE to See 
whether this should be an 
lOCB nuMber, the edit Mask, 
or a nuMber to forMat. 



DEC STATE 

BEQ FIND. EDIT. MASK 

BMI FORMAT. NUMBER 

* 

SAUE.IOCB .z » 
INY 

LDA t$CB),Y 
PHA 
BPL POINT. TO. NEXT 



The nuMber is the lOCB. 
Make Y point to byte after 
exponent, since a valid lOCB 
should not be large. 
Get that byte and put on the 
stack for later retrieval. 
Then go process next token. 



NUMERIC. CONSTANT. TOKEN .= » 

Note that CARRY is Clear on 
entry to this routine. 



A nuMeric constant was found. 
Transfer the offset value 
into A and add 6 to point to 
the last byte of the 
constant. Then save this 
pointer. 

TYA 

ADC tt6 
STA SAUEY 

IncreMent Y to point to 
exponent, transfer to A, then 
set X to point to base. 
Go add in the base address. 



INY 

TYA 

LDX tt4 

BNE POINT. TO. UALUE 

lOCB. TOKEN .= * 

* The tt token was found, 

* indicating the presence of an 

* lOCB specification. 



JANUARY A.N.A.L.O.O. CcDmputing 




3140 


« 




3158 


* 


Discard the default froM the 


31Be 


« 


stack Cthe new value will be 


3179 


» 


added when we look at the 


3188 


* 


next tokenJ, set the STATE to 


3198 


» 


to indicate next token is 


3288 


# 


an lOcB specj and then go 


3218 


* 


check out the next token. 


3228 


« 




3238 




PLA 


3248 




INC STATE 


3258 




BNE POINT. TO. NEHT 


3268 


FIND, EDIT. MASK ,: * I 


3278 


* 




3288 


* 


A variable was found and state 


3298 


* 


was decrenented to zeroj so 


3388 


« 


we assuMe this is the edit 


3318 


# 


Hask. $CBj $cc is pointing 


3328 


* 


to offset of value, so add in 


3338 


« 


base at STARP ($8C, $88). 


3348 


* 


Then count the nuMber of digit 


3358 


K 


positions (tt) after the 


3368 


» 


decinal point in the edit 


3378 


* 


Mask. 


3388 


* 




3398 




CLC 


3488 




LDA C$CB),Y 


3418 




ADC $8C 


3428 




5TA EDIT. MASK. LO 


3438 




INY 


3448 




LDA CSCB),V 


3458 




ADC $8D 


3468 




STA EDIT. MASK. HI 


3478 




INY 


3488 


# 




3498 


* 


Get the string length and 


3588 


* 


subtract 1 to convert to the 


3518 


# 


Max offset value. 


3528 


» 




3538 




LDA C$CBJ,Y 


3548 


GET. MASK. LENGTH .z » | 


3558 




TAY 


3568 




DEY 


3578 




STY EDIT. LENGTH 


3588 


* 




3598 


* 


Count nuHber of decinal places 


3668 


» 


in the edit Mask, 


3618 


» 




3628 




LDX «8 


3638 


FIND. DECIMALS .- * | 


3648 




LDA (EDIT. MASK), Y 


3658 




CMP tlDECIMAL. POINT 


3668 




BEQ FOUND. DP 


3678 




CMP ttNUMBER.SIGN 


3688 




BNE NOT, DIGIT 


3698 


» 




3788 


* 


Increwent K only when « found. 


3718 


K 




3728 




INX 


3738 


NOT. DIGIT .= * 1 


3748 




DEY 


3758 




BPL FIND. DECIMALS 


3768 


# 




3778 


* 


If we fall through here, then 


3788 


* 


no decihal point was found, 


3798 


» 


so there are no deciMal 


3888 


» 


places. Set X to indicate 


3818 


* 


this. 


3828 


* 




3838 




LDX tte 


3848 


FOUND, DP .= # 1 


3858 




SIX EDIT. DECIMALS 


3868 


POINT. TO. NEXT .: * I 


3878 


» 




3888 


* 


ExaMine the token to see what 


3898 


# 




3988 


* 


First, init soNe variables. 


3918 


* 


Clear the high byte of a work 


3928 


* 


pointer, indicate a floating 
$, and reset the Minus found 


3938 


# 


3948 


* 


indicator. 


3958 


* 




3968 


# 




3978 




LDY «0 


3988 




STY $CC 


3998 




STY FLOAT 


4888 




STY MINUS. FOUND 


4818 


CHECK. TOKEN .: » I 


4828 


« 




4838 


« 


This is the loop that exaMines 


4848 


« 


each token. First, get the 


4858 


* 


last pointer to the BASIC 


4868 


* 


line, incrcMent it to point to 


4878 


* 


a new token, save this value. 


4888 


* 


and get the token. 


4898 


* 





4188 
4118 
4128 
4138 
4148 
4158 
4168 
4178 
4188 
4198 
4288 
4218 
4228 
4238 
4248 
4258 
4268 
4278 
4288 
4298 
4388 
4318 
4328 
4338 
4348 
4358 
4368 
4378 
4388 
4398 
4488 
4418 
4428 
4438 
4448 
4458 
4468 
4478 
4488 
4498 
4588 
4518 
4528 
4538 
4548 
4558 
4566 
4578 
4588 
4598 
4688 
4518 
4628 
4638 
4648 
4658 
4668 
4678 
4688 
4698 
4788 
4718 
4728 
4738 
4748 
4758 
4768 
4778 
4788 
4798 
4888 
4818 
4828 
4838 
4848 
4858 
4866 
4878 
4888 
4896 
4986 
4918 
4926 
4936 
4948 
4958 
4966 
4978 
4986 
4998 
5888 
5818 
5828 
5836 
5848 
5658 



LDY SAWEY 

INY 

STY 5AVEY 

LDA ($8A},Y 

BMI UARIABLE. TOKEN 



If this is 
ignore. 



a coMMa, we can 



CMP ttSEPARATOR 
BEQ CHECK. TOKEN 
CMP tJSTR. CONSTANT 
BEQ STRING. CONSTANT. A 
# 

* If carry clear, then value 

* Must be 14. 
* 

BCC NUMERIC. CONSTANT. TOKEN 
CMP ttlOCB.IND 
BEO lOCB. TOKEN 



If carry clear here, then 
token is EOS, EOL, or ,• 



* 

BCC DONE. EDITING. A 
MINUS. TOKEN .= * 

INC MINUS. FOUND 

BNE CHECK. TOKEN 
* 

* Continue a long branch 
* 

POINT. TO. NEXT. A .: * 

BCC POINT. TO. NEXT 

BNE POINT. TO. NEXT 
FORMAT. NUMBER .= * 
* 

* On entry Vr8, $CB,SCC points 

LDA t$CB),Y 
STA SIGN 
BEQ A5 
« 

* If Minus Sign was found, 
» reverse the sign and save 

* this result. 
* 

LDX MINUS, FOUND 

BEQ A2 

EOR tt$88 

STA SIGN 
A2 .: » 
* 

* The nuMber will be forMatted 

* froM right to left. To align 

* the deciMal points, subtract 

* $3F out of the exponent byte, 

* Hult by 2, and add in the 
nuMber of deciMal places in 
the edit Mask. The result is 
the pointer to the first byte 
of the nuMber that should 
print in the right-Most 
position. 



If the result is < 8 or > 18, 
then zeros will be forced to 
print, depending on the edit 
Mask. 

AND tt$7F 
SEC 

SBC «$3F 

ASL A 
CLC 

ADC EDIT. DECIMALS 

A5 .= * 

STA NUMBER. PTR 

Get the first digit and save 
it. This will be used later 
to deterMine if the first 
digit is an insignificant 
zero. 



INY 

LDA ($CB),Y 

AND S$Fe 

STA FIRST. DIGIT. VALUE 

LDA EDIT. LENGTH 

STA EDIT.PTH 
DIGIT. LOOP .: * 
« 

# Process the nuMber for the 

* length of the edit Mask. 

LDY EDIT. PTR 
JANUARY A.IM.A.L.a.Q. Computing 



seee 


LDfl (EDIT. MASK), V 


5B7B * 




sese * 


Space, percent, decinal point 


5898 * 


and slash print as-is. 


5188 * 




5118 


CMP ttSPflCE 


5120 * 




5136 


BEQ D10 


5148 


CMP UPERCENT 


5158 


BEQ D10 


5168 


CMP JJDECIMflL. POINT 


5170 


BEQ D10 


5180 


CMP «5LflSH 


5190 


BNE D20 


5208 Die .= * 1 


5218 


LDY EDIT.PTR 


5220 


STfl COUTPUTJ.Y 


5238 » 




5248 * 


Decrement pointer to the edit 


5258 * 


Hask. If non-negative, keep 


5268 * 


looping. 


5278 » 




5288 


DEC EDIT.PTR 


5298 


BPL DIGIT. LOOP 


5388 * 




5318 » 


If number ptr > 0, then an 


5328 * 


overflow occurred. Place all 


5338 * 


asterisks in output area, 


5348 * 




5350 


LDY NUMBER. PTR 


5360 


BMI INCREMENT. OUTPUT. BASE 


5370 


BEQ INCREMENT. OUTPUT. BASE 


538B 


LDfl «ft5TERI5K 


5390 


LDY EDIT. LENGTH 


5480 OUERFLOW.LOOP .= * 1 


5410 


5Tfl (OUTPUT), Y 


5420 


DEY 


5430 


BPL OUERFLOM.LOOP 


5440 * 




5458 » 


Ne are done with this nuMber, 


5468 » 


so we will reset the output 


5478 * 


base pointer and go get the 


5480 # 


next token. 


5490 » 




5508 * 


We have to add the length of 


5510 * 


the edit Mask to the current 


5520 * 


output base to get the new 


5536 * 


value. Since the edit nask 


5540 * 


length was converted to an 


5558 * 


offset by subtracting one, we 


5568 * 


will set the carry first to 


5578 * 


add in 1 extra. 


5580 * 




5590 INCREMENT. OUTPUT. BftSE .z # | 


5680 


SEC 


5618 


LDfl OUTPUT. LO 


5628 


ADC EDIT. LENGTH 


5630 


STfl OUTPUT. LO 


5648 


BCC POINT. TO. NEKT.fl 


5650 


INC OUTPUT. HI 


5668 * 




5670 * 


This Will always branch. 


5680 * 




5690 


BNE POINT. TO. NEXT. A 


5780 * 




5718 » 


Continue a long branch. 


5720 * 




5738 DONE. EDITING. CI .- * 1 


5748 


BCC DONE. EDITING 


5758 D28 .: * 1 


5768 


CMP JlCOMMfl 


5778 


BNE D30 


5788 * 




5798 * 


If coMMa in the edit mask. 


5888 * 


and there are more digits to 


5818 » 


print, then insert the coHwa. 


5828 * 




5838 * 


If there are no digits to 


5848 * 


print then! 


5856 » 


Print a coMha if the next 


5860 * 


position will force a zero to 


5870 » 


print (edit wask = «) . 


5888 * 


Print a space if the next 


5898 * 


position will zero suppress 


5988 * 


(edit nask = Z) . 


5916 * 


If neither of the two above. 


5928 * 


assume S and print it, then 


5938 » 


turn off the float indicator. 


5946 * 




5956 


LDX NUMBER. PTR 


5966 


BMI D20fl 


5978 


BNE DIB 


5988 D2eA ,= * I 


5998 


DEY 


6886 


LDA (EDIT.Mft5K),Y 


6010 


CMP ttNUMBER.SIGN 


6820 


BNE D21 



6030 


LDfl ttCOHMA 1 


6840 


BNE D10 


6050 D21 .- * 1 


6060 


CMP «Z 


6070 


BNE D350 


6088 D22 .= * 1 


6898 


LDfl nSPflCE 1 


6188 


BNE DIB 


6110 D30 .= * 1 


6120 


CMP ttMINUS.SIGN 


6130 


BNE D35 


6140 * 




6150 * 


If number is minus, print the 


6168 * 


minus sign, else print space. 


6178 * 




6188 


LDH SIGN 


6198 


BMI D18 


6286 


BPL D22 


6216 D35 .: » I 


6220 * 




6230 * 


Check the ptr to the number. 


6240 * 


If it is negative, force zero. 


6256 » 


If it is zero, check edit mask 


6268 « 


for tt,$, or Z. 


6278 * 




6280 


LDY NUMBER. PTR 


5298 


BMI D300 


6388 


BEQ D3e8 


6310 


DEC NUMBER. PTR 


6320 » 




6330 # 


If pointer out of range, then 


6340 * 


we have more digits in edit 


6350 * 


mask then in the number, 


6360 « 


Force to extras to zeros. 


6378 * 




6388 


CPY «11 


6390 


BCS D28e 


6400 * 




6410 * 


If processing second digit. 


6420 * 


check if first digit is an 


6430 * 


insignificant zero. 


6440 * 


If it is, decrement the 


6458 » 


counter to bypass. 


6468 » 




6478 


CPY «2 


6480 


BNE D48 


6490 


LDfl FIRST. DIGIT. UflLUE 


6500 


BNE D4a 


6518 


DEC NUMBER. PTR 


6520 D40 .z » 1 


6530 * 




6540 * 


Convert number pointer to an 


6558 * 


offset into value, Then 


6568 » 


increment by 1 to adjust for 


6576 # 


the exponent byte, 


6586 * 




6590 


DEY 


6688 


TYfl 


6610 


LSR A 


6628 


TAY 


6630 


INY 


6640 


LDA t$CB),Y 


6650 * 




6660 * 


Check Shift result. 


6678 * 




6688 


BCC LEFT. DIGIT 


6696 RIGHT. DIGIT .= » I 


6766 


AND «$8F 1 


6710 


BCS D45 1 


6728 LEFT. DIGIT .z * | 


6736 * 




6746 * 


Move hi nibble to lo nibble 


6756 * 


for processing. 


6768 * 




6778 


LSR A 


6788 


LSR A 


6798 


LSR fl 


6800 


LSR A 


6818 D45 .= * 1 


6828 


ORfl tt$30 1 


6838 D46 .z # | 


6848 


BNE D10 


6856 * 




6866 * 




6878 D286 .z * | 


6886 


LDfl «ZERO 


6898 


BNE D10 


6960 * 




6910 * 




6928 0386 .= * I 


6930 


CMP ttNUMBER.SIGN 


6940 


BEQ D200 


6958 


CMP «Z 


6968 


BEQ D22 


6978 » 




6986 » 


Process dollar sign. 


6998 * 




7880 D350 .z « 1 



7010 
7020 
7030 
7840 
7050 
7066 
7876 
7886 
7B9B 
7188 
7118 
7128 
7136 
7146 
7158 
7156 
7178 
7180 
7190 
7280 
7210 
7228 
7238 
7240 
7250 
7260 
7270 
7288 
7298 
7388 
7318 
7328 
7338 
7348 
7356 
7368 
7376 
7388 
7398 
7488 
7418 
7428 
7438 
7448 
7458 
7468 
7478 
7480 
7498 
7586 
7516 
7528 
7536 
7540 
7550 
7568 
757B 
7588 
7598 
7688 
7618 
7528 
7630 
7648 
7658 
7666 
7670 
7580 
7690 
7700 
7718 
7728 
7738 
7748 
7750 
7760 
7770 
7780 
7790 
7888 
7810 
7828 
7830 
7848 
7858 
7868 
7870 
7880 
7898 
7988 
7918 
7928 
7936 
7946 
7950 
7966 
7978 



LDY FLOAT 
BNE D22 
INC FLOAT 
BNE D46 
# 

DONE. EDITING .z » 

* 

Save the token for later- 
Get lOCB n from stack and 
mult by 16, put it in X. 
Set up for character I/O. 



TAY 

PLA 

ASL A 

ASL fl 

flSL A 

ASL fl 

TflX 

LDfl »PUT.CHflRACTERS 

STA SB342,X 

Get token, set Y as output 
offset, then test token to 
determine if the line feed is 
suppressed (token = j) . 



TYA 

LDY m 

CMP »SEMI. COLON 

BEQ E10 

Now Check for Screen or Editor 
device open for the requested 
lOCB, If so, use record I/O 
and forget about line feeds 
and carriage returns (but add 
the ATASCII return to output) 

LDA $0340, X 

CMP 8SCREEN. DEVICE 

BEQ El 

CMP «EDITOR. DEVICE 

BNE E3 

.z * 

LDA tlPUT. RECORD 

STft $8342, X 

LDfl SRETURN 

BNE E5 
E3 .z # 
* 

* Hove printer line feed. 
* 



El 



LDfl ttLINE.FEED 
STfl (OUTPUT), Y 

NOP next instruction if your 

printer is set to auto line 

feed when carriage return is 

received. 

This will cause the carriage 

return to overlay the line 

feed character. 



INY 

LDA SCARRIAGE. RETURN 
E5 .= * 

STA (OUTPUT), Y 

INY 
ElB .= * 
* 

Adjust output buffer pointer 
to account for line feed and 
carriage return characters. 
Then subtract out beginning 
buffer address to get buffer 
length. 



TYA 

CLC 

ADC OUTPUT. LO 

SEC 

SBC tt <CASSETTE. BUFFER 

STA $6348, X 

LDA tt8 

STfl $8349, K 

Set up buffer address. 

LDA 8 <CASSETTE. BUFFER 

STfl $8344, X 

LDA « >CA55ETTE. BUFFER 

STA $0345, X 

JSR CIO. ROUTINE 

RTS ^, 

.END P 



JANUARY A.N.A.L.O.B. Computing 



When you want to talk Atari 



XL/XE HARDWARE 



CMO SPECIAL 

Atari 800XL $69®^ 

65XE 109.00 

130XE 149.00 

INTERFACES 

ICD 

P:R Connection 59.99 

Printer Connection 34.99 

Supra 

1150 39.99 

1151 (1200 XL) 40.99 

Xetec 

Graphix Interface 38.99 

Atari 

850 Interface 109.00 

XLTXE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 

Atari 80 Column Card 74.99 

ICD 

BBS Express (ST) 52.99 

Sparta DOS Construction Set 28.99 

US Doubler/Sparta DOS 47.99 

Real Time Clock 48.99 

Rambo XL 29.99 

US Doubler 28.99 

MODEMS 

Atari 

SX212 300/1200 (ST) 79.99 

XMM301 44.99 

Anchor 

VM520 300/1200 ST Dir. Con. . . .119.00 

Avatex 

1200 HC 89.99 

2400 169.00 

Supra 

2400 Baud XUXE or ST 169.00 

2400 Baud (no software) 139.00 

MONITORS 

M&onflvox 

CM 8505 14" Composlte/RGB/TTL . .199.00 



ST HARDWARE 



Gail For Current Information 
On The Entire ST Line! 




ATARI SMI 224 -,^^^ 

RGB/Color Monitor ^329 

520ST FM RGB/Color System. . .829.00 
SM124 Monochrome Monitor. . . .179.00 




CMO PACKAGE EXCLUSIVE 
Atari 800XL & XF551 Drive 

w/5 Undocumented ROMS Asteroids, Defender, 
Missile Command, QIX, Star Raiders ftOCO 



DRIVES 



Atari 

ST 314 DS/DD 219.00 

XF551 Drive (XL/XE) 179.00 

SHD204 20 Meg Hard Drive Call 

I.B. 

51/4" 40 Track (ST) 219.00 

51/4" 80 Track (ST) 279.00 

LCD. 

FA«ST 20 Meg 629.00 

FA«ST 30 Meg 849.00 

FA«ST Dual Hard Drives Call 

Indus 

GTS 100 3V2" DS/DD (ST) 189.00 

GT 1000 51/4" DS/DD (ST) 209.00 

GT Drive (XL/XE) 189.00 

Supra 

FD-10 10MB Removable Floppy . 869.00 

30 Meg Hard Drive (ST) 649.00 

CALL FOR DISKETTE SPECIAL 



WE SHIP 90% 
OF ALL ORDERS 
WITHIN 24 HOURS 





PRINTERS 




Atari XDM1 21 ^^ ^^ 

LQ (XL/XE) $1 89 

Atari 

1020 40 col. Color 24.99 

1027 Letter Quality XL/XE 89.99 

XM-M801 XL/XE Dot Matrix . . . .189.00 
Brother 

M-1109 100 cps Dot Matrix 169.00 

M-1509 180 cps Dot Matrix 369.00 

HR-20 22 cps Daisywheel 349.00 

Citizen 

120D 120 cps Dot Matrix 149.00 

180D 180 cps Dot Matrix 179.00 

Premier-35 35 cps Daisywheel . .549.00 
Epson 

LX-800 150 cps, 80 col 189.00 

FX-850 264 cps, 80 col Call 

LQ-500 180 cps, 24-wire Call 

LQ-850 330 cps, 80 col Call 

NEC 

P2200 pinwriter 24-wire 379.00 

Okidata 

Okimate 20 color printer 129.00 

ML-182 +120 cps, 80 column . .229.00 

ML-390 +270 cps, 24-Wire 539.00 

Panasonic 

KX-P1080i 144 cps, 80 col 169.00 

KX-P1091i 194 cps, 80 col 199.00 

Star Micronics 

NX-1000 140 cps, 80 column . . .179.00 

Toshiba 

P321-SL 216 cps, 24- wire 499.00 

Alisop Disk Holders 

Disk File 60-5V4" 9.99 

Disk File 30-3y2" 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 



ACCESSORIES 




SELECT FROM 
OVER 3000 
PRODUCTS 



COMPUTER MAIL ORDER 



you want to talk to us. 



SPECIALS XL/XE 



#AAB822P 822 Printer Paper $2.99 

#AA14746 T.V. Switch Box 2.99 

#AA4010 Tic-Tac-Toe 4.99 

#AA4011 Star Raiders 4.99 

#AA4012 Missile Command 4.99 

#AA4013 Asteroids 4.99 

#AA4022 Pac Man 4.99 

#AA4025 Defender 4.99 

#AA4027 QIX 4.99 

#AA4102 Kingdom (Cass.) 1.99 

#AA4112 States & Capitals (Cass.). 1.99 

#AA4121 Energy Czar 1.99 

#AA4123 Scram (Cass.) 1.99 

#AA4126 Speed Reading 2.99 

#AA4129 Juggle's Rainbow 1.99 

#AA415 File Manager 9.99 

#AA4204 1020 Color Pens 1.99 

#AA5047 Timewise (D) 3.99 

#AA5049 Visicalc (D) 24.99 

#AA5050 Mickey Outdoors 5.99 

#AA5081 Music Painter (D) 9.99 

#AA6006 Counseling Procedure. . . .1.99 
#AA7102 Arcade Champ (No J. Stk)6.99 

#AA8030 E.T. Phone Home 3.99 

#AA8048 Millipede 4.99 

Access 

Leaderboard Golf 22.99 

Accolade 

Pinball Wizard 21.99 

Actlvlsion 

Hacker ll/Music Studio (ea.) 28.99 

Antic 

CAD 3-D 29.99 

Avant Garde 

PC Ditto 59.99 

Batteries Included 

Degas Elite 37.99 

m 



ST SOFTWARE 




Data East 
Speed Buggy 



$2599 



CLOSEOUTS XL/XE 



ROM CARTS (XL/XE) 
«3*» ea or 5 for «14»« 




Loose/Undocumented 

Choose from: Space Invaders, Star 
Raiders, Missile Command, Asteroids, 
Pac Man, Galaxian, Defender, QIX, 
Super Breakout, E.T., Eastern Front, 
Robotfon. 
Rockiyn 

Gorf 2.99 

Anti-Sub (Disk) 2.99 

Journey to Planet 2.99 

Atari Program Exchange 

10 Different Cassettes For $11.99 



ST SOFTWARE 



Epyx 

Championship Wrestling 19.99 

Dive Bomber 29.99 

Firebird 

Jewels of Darkness 19.99 

The Sentry/Tracker (ea.) 12.99 

FTL 

Dungeonmaster 29.99 

Metacomco 

ISO Pascal 59.99 

MIchtron 

Leatherneck 29.99 

MIcroprose 

Gunship 28.99 

F-15 Strike/Silent Service (ea.) ... 24.99 
Miles Software 

ST Wars 24.99 

Mindscape 

Road Runner 35.99 

Mark of the Unicorn 

PC Intercom 79.99 

Mark Williams 

C 119.00 

Paradox 

Wanderer (3D) 24.99 



SPECIALS XL/XE 



Access 

Leaderboard Golf 13.99 

Accolade 

Hardball 19.99 

Atari 

Atariwriter Plus 35.99 

Broderbund 

Printshop 26.99 

Datasoft 

Alternate Reality (City) 23.99 

221 Baker St 20.99 

Electronic Arts 

Auto Duel 23.99 

Firebird 

Silicon Dreams 19.99 

Jewels of Darkness 19.99 

MIcroprose 

Top Gunner 16.99 

F-15 Eagle Strike 22.99 

Origin Systems 

Ultima 4 36.99 

Strategic SImuiations 

Gemstone Warrior 11.99 

Subiogic 

Flight Simulator 34.99 



ST SOFTWARE 



Progressive Computer 

Graphic Artist 1.5 119.00 

Psygnosis 

Obliterator 29.99 

Soft Logik Corp. 

Publishing Partner 54.99 

Strategic Simulation 

Questron II 35.99 

Subiogic 

Flight Simulator II 33.99 

Timeworks 

Swiftcalc/Wordwriter (ea.) 45.99 

Desktop Publisher 79.99 




Word Perfect 



$179 



In U.S.A. 



Call: 1-800-233-8950 

In Canada call: 1-800-233-8949 All Other Areas call: 717-327-9575 Fax: 717-327-1217 

Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 

CMO, 101 Reighard Ave., Dept. B7, Williamsport, PA 17701 



OVER 350.000 SATISFIED CUSTOMERS • ALL MAJOR CREDIT CARDS ACCEPTED • CREDIT CARDS ARE NOT CHARGED UNTIL WE SHIP 



MMC 

MIC ROCOMPU TER 
MARKETING COUNCIL 



POLICY: Add 3% (minimum $7.00) siiipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to 
clear. For faster delivery, use your credit card or send cashier's check or bank money order. Credit cards are not charged until we ship. Pennsylvania and 
Maryland residents add appropriate sales tax. All prices are U.S.A. prices and are subject to change, and all items are subject to availability. Defective software 
will be replaced with the same item only. Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We 
cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. We are not responsible for typographic or photographic 
errors. 

CIRCLE #110 ON REAOER SERVICE CARD. B™1 



Some Call It 




We named our drive after its swift "WHJ 
and aggressive behavior. But it's really % W 
not fair to limit this incredible periph- m/1 
eral to just one name. » ' 

Call it cool. Cool, calm and collected with its 
whisper-quiet fan to prevent heated situations. 
Call it high-class. With refined style, its sleek 
design complements your Atari computer system 
Quite simply, ftinctional elegance under your 
monitor that's designed to adjust to your 
system and lift your sights for easy viewing. 
Call it friendly. Our FA-ST Hard Drive wel- 
comes a host of features like dual -w- -w- 
DMA ports which invite new devices. B B ^ 
Our SCSI expansion is ready when I I y 
you are. And inside, our drive can A JL,%^ 
handle a partner like no others 



VfeCalllt 



rivewel- .*>X .m. \^.M^ So, to be q 

"■- *■- "I -W-^ « care wl 

Hard Drive 



a can. Have the time? The FA-ST drive 
does . . . the right time, everytinie. 
Call it durable. Unwavering 
dependability from a winning 



design. Only the best components are 
found inside our FA-ST Hard Drive. A ftiU 
one year warranty and ICD's uncompro- 
mised reputation for quality should say it all. 
Now, don't let the abundance of features 
scare you . . . FA'ST Hard Drives are available 
in all sizes and at prices you can afford. 
So, to be quite honest, we really don't 
f care what you call our hard drive - 

•^"V ly^ ^^ '""*' ^^ ^"" ^^" '^"^ '' 
I m/l today And get ready for the 

■■■ ▼ ^^ best thing that ever happened 



to your Atari ST 



Call or write for our free catalog today. 

1220 Rock Street ■ Rockford, Illinois 61 101 ■ (815) 968-2228 ■ MODEM: (815) 968-2229 ■ FAX: (815) 968-6888 



■CD 



CIRCIE #101 ON READER SERVICE CARD. 



FA'STis a iradenutrk oflCI) Cor/xiralit 



Mart ST is a trademark of Atari Oir/ioralioH. 



